Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  396 1612 (N46E61 L= 52)   724     59        3 ( 376/1577- 416/1645) -26.6 E67-E55 N43-N48
      2  924 1545 (N39E04 L=109)   444    107        0 ( 871/1528- 976/1562)   0.0 E08-W00 N37-N40
      3 1097 1422 (N29W08 L=121)   543    222        0 (1041/1343-1130/1492) -73.3 W04-W09 N24-N34
      4  532 1357 (N28E34 L= 80)   645    215        0 ( 494/1286- 560/1410)  81.9 E37-E31 N22-N31
      5  394 1304 (N24E45 L= 68)   773    134        1 ( 377/1239- 421/1367) -63.4 E47-E42 N20-N28
      6  299 1251 (N21E53 L= 60)   488     59        1 ( 281/1224- 323/1283) -36.9 E55-E50 N19-N22
      7 1728 1233 (N12W52 L=165)   408     58        0 (1703/1200-1747/1257) -90.0 W49-W53 N09-N13
      8 1756  955 (S05W51 L=164)   594    152        1 (1712/ 902-1793/1008) -81.9 W46-W54 S08-S01
      9 1731  743 (S19W50 L=163)  3469    597       10 (1639/ 561-1834/ 954)  65.4 W43-W59 S30-S06
     10 1673  883 (S09W43 L=156)   703    207        3 (1586/ 834-1719/ 945)  21.8 W36-W47 S11-S05
     11 1239  791 (S11W12 L=125)   324     64        0 (1211/ 757-1270/ 823)  36.9 W10-W14 S13-S09
     12 1634  781 (S15W40 L=153)   542    151        2 (1575/ 736-1683/ 814)   6.3 W35-W44 S17-S12
     13  306  661 (S16E56 L= 57)   450     74        1 ( 285/ 620- 324/ 694)  45.0 E58-E53 S18-S13
     14  745  483 (S29E24 L= 90)  2042    407        3 ( 594/ 391- 858/ 617)  27.5 E38-E13 S35-S19
     15  967  539 (S26E07 L=106)   282    117        0 ( 949/ 490- 988/ 590) -81.9 E07-E05 S29-S22
  

    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