Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1547 1632 (N44W47 L=264)   829    114        1 (1485/1604-1593/1654)   4.1 W38-W53 N42-N46
      2  854 1556 (N36E15 L=202)   599    141        0 ( 807/1508- 912/1603) -29.1 E19-E10 N33-N39
      3  355 1512 (N30E59 L=159)   405     62        1 ( 323/1498- 387/1527)   7.1 E62-E54 N28-N31
      4  857 1342 (N22E12 L=205)   308     58        2 ( 836/1307- 883/1375)  90.0 E13-E10 N19-N23
      5 1864 1160 (N12W65 L=282)  5212    397        9 (1762/1006-1932/1313) -59.0 W54-W76 N02-N22
      6  771 1213 (N13E17 L=201)   223     52        1 ( 747/1181- 790/1235) -71.6 E18-E15 N11-N14
      7 1261 1083 (N07W14 L=232)   991    290        0 (1191/ 958-1308/1188) -61.7 W09-W17 N00-N13
      8 1425 1092 (N08W25 L=243)   428    131        0 (1402/1049-1469/1150) -56.3 W23-W28 N05-N11
      9  786  902 (S06E14 L=203)   288    101        0 ( 749/ 857- 806/ 942) -59.0 E16-E12 S08-S03
     10 1490  721 (S15W32 L=249)  2208    498        3 (1384/ 535-1576/ 924)  70.2 W26-W36 S27-S02
     11 1164  788 (S11W10 L=227)   360     59        1 (1140/ 755-1189/ 824) -76.0 W07-W11 S13-S09
     12  474  630 (S25E38 L=179)   869    170        0 ( 416/ 603- 543/ 671)  -5.7 E42-E32 S26-S22
     13 1751  573 (S25W61 L=279)   459     84        0 (1719/ 537-1776/ 601)  59.0 W59-W64 S27-S22
     14  966  221 (S56E02 L=216)  1807    285        4 ( 828/ 196-1074/ 249)   0.0 E16-W10 S59-S52
  

    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