Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  293 1428 (N50E47 L=142)   410     62        2 ( 274/1409- 316/1453)  90.0 E49-E44 N47-N51
      2  522 1360 (N38E24 L=165)   406     93        1 ( 478/1324- 570/1399)  14.0 E27-E19 N36-N39
      3  250 1295 (N41E50 L=140)   362     86        0 ( 219/1269- 276/1312)  11.3 E53-E47 N39-N42
      4  866 1231 (N21E03 L=186)   501    164        2 ( 795/1184- 952/1264) -53.1 E07-W00 N16-N24
      5  143 1038 (N27E63 L=127)   545    200        2 ( 108/1020- 186/1050)   0.0 E67-E57 N25-N27
      6  214  961 (N21E57 L=133)  1083    161        4 ( 185/ 920- 261/1019) -71.6 E59-E52 N18-N24
      7  462  826 (N08E39 L=151)   255     65        2 ( 434/ 804- 496/ 853) -45.0 E40-E36 N06-N10
      8  774  770 (S02E21 L=169)   733    190        2 ( 681/ 718- 851/ 810) -36.9 E26-E17 S06-N01
      9  152  743 (N09E74 L=116)   825    102        0 ( 136/ 705- 168/ 786)  51.3 E77-E71 N06-N11
     10 1658  669 (S34W31 L=221)  1361    298        4 (1541/ 573-1734/ 769)  19.4 W20-W38 S37-S29
     11  429  689 (N01E46 L=144)   271     83        0 ( 411/ 652- 447/ 726)  31.0 E48-E43 N00-N03
     12  943  609 (S15E16 L=174)   483    121        2 ( 910/ 570-1001/ 647)   9.5 E18-E12 S17-S12
     13  688  489 (S16E36 L=154)   532    175        1 ( 654/ 421- 719/ 580)  68.2 E37-E33 S20-S10
     14  439  431 (S14E57 L=132)   616    122        2 ( 391/ 404- 474/ 459) -33.7 E61-E54 S16-S12
     15 1353  319 (S49E01 L=189)   396    108        0 (1326/ 286-1382/ 366)  39.8 E04-W02 S51-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