Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1071 1721 (N52W10 L= 53)   324     76        0 (1035/1705-1118/1732)   0.0 W06-W15 N51-N53
      2 1407 1548 (N36W34 L= 76)  1710    456        2 (1223/1494-1600/1631) -24.9 W20-W49 N30-N43
      3  405 1443 (N33E49 L=354)  1136    243        2 ( 360/1357- 472/1541) -32.3 E59-E39 N27-N39
      4  568 1186 (N16E30 L= 13)   222     56        1 ( 550/1148- 580/1216) -68.2 E31-E28 N13-N18
      5  518 1120 (N12E33 L=  9)   560    209        0 ( 450/1038- 577/1203) -45.0 E38-E28 N07-N17
      6  838 1097 (N10E11 L= 31)   570    123        2 ( 790/1045- 871/1145) -90.0 E14-E09 N06-N12
      7 1855  872 (S11W63 L=106)  1308    168        2 (1816/ 796-1884/ 949)  60.9 W58-W67 S15-S06
      8 1199  783 (S11W10 L= 52)   233     50        0 (1165/ 765-1231/ 802)  14.0 W07-W11 S12-S10
      9  264  738 (S12E59 L=344)   673     87        0 ( 234/ 702- 305/ 763)  18.4 E63-E53 S14-S10
     10 1513  705 (S18W32 L= 74)   252     89        0 (1494/ 683-1547/ 735) -26.6 W30-W34 S20-S16
     11 1758  697 (S22W55 L= 97)   524     48        1 (1730/ 673-1787/ 724)  21.8 W51-W58 S23-S19
     12  254  623 (S20E66 L=337)  1132    109        3 ( 232/ 567- 275/ 677)  45.0 E72-E61 S23-S15
     13 1471  599 (S25W29 L= 72)   415    103        0 (1425/ 574-1509/ 628)  31.0 W26-W32 S27-S23
  

    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