Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  857 1689 (N28E32 L=188)   945    294        1 ( 806/1541- 913/1795) -35.0 E42-E21 N19-N34
      2  519 1638 (N16E53 L=167)   939    192        3 ( 475/1583- 562/1703) -32.5 E59-E47 N12-N20
      3  456 1587 (N12E55 L=165)   575    102        0 ( 426/1556- 508/1627)  -9.5 E60-E48 N09-N13
      4  723 1500 (N12E31 L=189)   558    202        1 ( 684/1434- 765/1573) -60.9 E33-E27 N08-N17
      5 1238 1488 (N26E01 L=219)   283    131        0 (1211/1429-1252/1547) -60.3 E04-W00 N21-N29
      6  627 1460 (N07E36 L=184)   459    128        0 ( 600/1402- 644/1517) -76.0 E38-E34 N03-N11
      7 1444 1451 (N30W13 L=233)   328     62        1 (1416/1416-1463/1485) -21.8 W10-W15 N28-N32
      8 1760 1292 (N32W42 L=262)   798    211        2 (1732/1204-1789/1398) -65.6 W38-W46 N27-N38
      9  233 1316 (S09E64 L=156)   537    119        1 ( 202/1273- 259/1371)  71.6 E66-E61 S11-S05
     10  817 1257 (N00E18 L=202)   240     73        1 ( 778/1229- 847/1278)   0.0 E20-E15 N00-N01
     11  681  830 (S27E15 L=205)   511    118        1 ( 636/ 802- 737/ 870)  -8.1 E18-E11 S28-S25
     12 1231  496 (S30W31 L=251)   689    207        3 (1130/ 476-1334/ 518)  28.3 W24-W37 S33-S26
     13 1658  386 (S20W73 L=293)  1166     75        3 (1630/ 349-1690/ 417) -78.7 W68-W78 S22-S17
  

    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