Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1360 1480 (N26W18 L=199)   898    247        0 (1252/1401-1435/1540) -28.3 W10-W23 N21-N29
      2  527 1450 (N18E36 L=144)   829    162        4 ( 492/1386- 578/1513) -82.9 E40-E31 N13-N21
      3  882 1388 (N16E12 L=169)   816    222        3 ( 805/1340- 939/1464)  -7.1 E16-E08 N12-N20
      4  664 1294 (N08E24 L=157)   926    292        1 ( 551/1194- 744/1395) -36.3 E33-E18 N02-N14
      5 1820 1204 (N14W54 L=235)   633     68        1 (1782/1171-1852/1232)  -8.1 W50-W58 N12-N15
      6  462  992 (S10E35 L=145)   458     85        1 ( 428/ 954- 505/1027)  38.7 E37-E32 S12-S08
      7 1897  983 (N02W64 L=245)   825     64        2 (1872/ 951-1921/1021)  53.1 W60-W67 N00-N04
      8  148  971 (S12E65 L=115)   419     64        0 ( 134/ 941- 159/1009)  53.1 E67-E63 S13-S09
      9  835  861 (S16E10 L=170)  1541    570        5 ( 652/ 780-1036/ 918)  15.3 E21-W01 S21-S12
     10  449  788 (S23E37 L=144)  1044    266        1 ( 404/ 653- 474/ 899)  79.4 E40-E34 S31-S15
     11 1667  772 (S14W45 L=226)   330     74        0 (1651/ 734-1684/ 814)  90.0 W44-W46 S15-S10
     12 1851  630 (S19W72 L=252)   602     80        0 (1825/ 588-1880/ 661)  51.3 W69-W75 S21-S16
     13 1597  440 (S35W54 L=234)   492    108        0 (1547/ 400-1626/ 466)  -9.5 W47-W59 S36-S32
     14 1139  420 (S42W15 L=196)   505    131        1 (1092/ 382-1200/ 462) -20.0 W10-W21 S44-S39
  

    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