Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  764 1499 (N14E27 L= 19)   224     98        0 ( 749/1456- 781/1545) -51.3 E29-E24 N11-N16
      2 1207 1378 (N17W02 L= 48)   254    103        1 (1185/1333-1230/1424) -53.1 W00-W04 N14-N19
      3  324 1180 (S13E49 L=358)  1575    329        6 ( 266/1082- 417/1240)  54.0 E54-E42 S19-S08
      4  675 1028 (S15E20 L= 26)   534    191        0 ( 625/ 938- 724/1111) -37.9 E25-E15 S19-S11
      5 1744 1056 (N14W44 L= 91)   333     56        1 (1722/1032-1763/1087)  63.4 W42-W45 N12-N16
      6 1365  960 (S02W21 L= 67)  1006    233        0 (1271/ 919-1473/1039)  -4.1 W13-W27 S03-N00
      7 1852  989 (N14W56 L=102)   538    156        1 (1809/ 968-1892/1013)  12.5 W51-W60 N12-N16
      8 1780  822 (N03W54 L=101)   911    105        1 (1751/ 749-1804/ 893) -60.3 W51-W58 N00-N07
      9  415  832 (S32E36 L= 11)  1028    327        1 ( 282/ 805- 530/ 860)  10.8 E47-E26 S35-S29
     10 1192  710 (S20W18 L= 65)   245     92        0 (1145/ 693-1240/ 723)  18.4 W15-W21 S21-S19
     11 1450  652 (S16W36 L= 82)   228     72        0 (1414/ 639-1488/ 666)  36.9 W33-W37 S17-S14
     12 1720  584 (S11W60 L=106)   515     58        0 (1695/ 558-1748/ 613)  68.2 W57-W61 S13-S08
     13 1146  548 (S31W21 L= 68)   566    131        0 (1076/ 527-1218/ 577)  40.6 W17-W25 S33-S27
     14 1684  512 (S16W60 L=107)  2059    365        5 (1602/ 467-1763/ 553)  26.6 W52-W68 S19-S11
  

    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