Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1224 1845 (N58W48 L=119)   410     64        0 (1207/1817-1239/1876)  28.6 W42-W54 N55-N61
      2  691 1717 (N58E21 L= 50)  1168    267        3 ( 569/1682- 822/1746)  -1.8 E37-E05 N55-N60
      3 1631 1635 (N32W65 L=136)   732     91        1 (1601/1594-1654/1683)  14.0 W59-W75 N30-N34
      4 1133 1515 (N35W16 L= 87)   291     70        0 (1094/1498-1172/1530)  -9.5 W12-W18 N33-N35
      5  910 1378 (N29E02 L= 69)   476    175        0 ( 853/1309- 944/1428) -66.0 E05-W00 N24-N33
      6  693 1339 (N30E18 L= 53)   328    123        0 ( 656/1307- 748/1389) -45.0 E20-E14 N26-N33
      7  161 1190 (N24E70 L=  1)   852    108        0 ( 145/1153- 182/1256) -33.7 E74-E65 N21-N27
      8  289 1156 (N22E52 L= 19)   637    126        1 ( 273/1096- 307/1214) -82.9 E54-E49 N17-N25
      9 1820  956 (S11W56 L=127)  1436    180        2 (1786/ 872-1864/1023)  41.2 W51-W61 S15-S07
     10 1841  696 (S29W62 L=133)  1150    100        3 (1809/ 660-1879/ 750)  90.0 W56-W68 S31-S25
     11 1657  588 (S32W41 L=112)  1271    284        1 (1546/ 494-1763/ 667)  21.8 W31-W51 S37-S28
     12 1337  400 (S40W14 L= 85)   270     31        0 (1312/ 385-1361/ 417)   0.0 W11-W15 S40-S38
     13 1138  331 (S42E03 L= 68)   599     92        3 (1089/ 307-1192/ 352)   0.0 E07-W01 S43-S39
     14  970  248 (S46E20 L= 51)  1180    131        2 ( 910/ 218-1039/ 285)   4.4 E26-E13 S48-S43
     15  817  196 (S49E38 L= 33)   862     85        0 ( 790/ 148- 846/ 234)  26.6 E50-E32 S55-S45
  

    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