Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1071 1634 (N44W17 L=356)   294    100        0 (1022/1623-1116/1646) -23.2 W13-W20 N42-N45
      2 1419 1556 (N31W40 L= 19)   458     64        1 (1385/1529-1454/1574)   8.1 W36-W43 N29-N32
      3  524 1419 (N38E31 L=308)   286     41        0 ( 504/1401- 548/1449) -36.9 E33-E28 N37-N40
      4 1602 1385 (N17W46 L= 25)   446    120        0 (1547/1360-1660/1408) -11.3 W41-W51 N15-N17
      5  730 1324 (N29E15 L=324)  1338    338        4 ( 599/1260- 894/1377) -32.3 E24-E04 N22-N34
      6 1153 1139 (N11W10 L=349)   216     66        1 (1134/1104-1175/1174)  53.1 W08-W11 N09-N13
      7  911 1040 (N09E07 L=332)   184     64        0 ( 900/1008- 925/1074)  63.4 E07-E05 N07-N11
      8  469 1045 (N15E36 L=303)   274     90        0 ( 440/1010- 510/1071)  31.0 E38-E32 N13-N16
      9  248 1021 (N16E56 L=283)   686    116        0 ( 197/ 995- 295/1054) -15.3 E61-E50 N14-N17
     10 1217  802 (S10W08 L=347)   562    129        2 (1196/ 736-1240/ 866)  69.4 W06-W09 S13-S05
     11 1437  741 (S18W21 L=  0)   407    174        0 (1399/ 712-1490/ 781)  -9.5 W18-W24 S19-S14
     12  687  600 (S14E28 L=311)   666    267        0 ( 638/ 547- 749/ 666) -82.9 E30-E24 S17-S09
     13  575  587 (S14E37 L=302)   270     94        0 ( 527/ 569- 619/ 602) -26.6 E39-E33 S15-S12
     14  907  398 (S31E20 L=319)  1119    235        1 ( 822/ 339- 993/ 488)  22.4 E28-E11 S34-S26
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y