Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  420 1572 (N16E58 L=223)   732    171        1 ( 390/1510- 460/1654) -59.0 E61-E54 N11-N21
      2  679 1592 (N23E38 L=243)   573    143        1 ( 656/1522- 715/1651) -45.0 E42-E34 N18-N26
      3 1070 1624 (N35E14 L=268)   433     73        0 (1031/1600-1106/1643)   0.0 E16-E10 N33-N36
      4  360 1604 (N17E69 L=212)   604     88        1 ( 337/1572- 389/1641) -78.7 E71-E66 N14-N19
      5  826 1568 (N25E27 L=254)   548    239        0 ( 747/1485- 892/1639) -23.6 E36-E20 N20-N27
      6 1600 1545 (N46W31 L=313)   395     68        0 (1577/1513-1633/1565)  39.8 W28-W35 N43-N48
      7  847 1478 (N19E22 L=259)   231    127        0 ( 796/1440- 874/1501) -11.3 E25-E20 N17-N21
      8  947 1417 (N18E14 L=267)   403    130        2 ( 914/1367- 972/1479) -82.9 E15-E13 N14-N22
      9 1153 1316 (N17W01 L=282)   286     95        2 (1116/1294-1197/1338)  59.0 E01-W03 N14-N19
     10  281 1212 (S08E55 L=226)   835    213        1 ( 243/1123- 306/1276) -41.6 E61-E51 S13-S04
     11  361 1185 (S08E47 L=235)   618    110        2 ( 327/1146- 403/1219) -14.0 E50-E42 S10-S06
     12  217 1104 (S16E60 L=222)   916    114        1 ( 182/1052- 251/1145)  56.3 E64-E55 S19-S13
     13 1667  573 (S12W57 L=339)   525     89        2 (1640/ 545-1701/ 603)  68.2 W53-W60 S14-S09
     14 1614  439 (S21W62 L=344)  1847    170        3 (1535/ 381-1680/ 494)  38.7 W57-W68 S26-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