Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1177 1629 (N40W28 L=298)   665    148        0 (1132/1583-1223/1690)  84.3 W25-W30 N35-N45
      2 1650 1558 (N22W59 L=329)   942    172        1 (1595/1539-1706/1580) -21.8 W54-W64 N19-N23
      3 1240 1547 (N33W28 L=298)   260     46        1 (1218/1527-1261/1573)  33.7 W26-W30 N31-N34
      4 1613 1503 (N20W53 L=323)   738     86        1 (1585/1471-1644/1545) -80.5 W50-W55 N17-N23
      5  722 1361 (N33E13 L=258)  1480    352        6 ( 629/1214- 805/1490) -68.2 E18-E09 N23-N43
      6 1775 1446 (N12W66 L=336)   633    103        2 (1745/1405-1806/1482) -63.4 W64-W68 N08-N14
      7 1826 1391 (N07W70 L=340)  1545    257        7 (1790/1335-1851/1467)  77.5 W66-W77 N03-N12
      8 1812 1160 (S05W57 L=327)  1835    394        2 (1731/1047-1902/1321) -69.8 W53-W65 S13-N06
      9  246 1079 (N24E54 L=216)  3941    701        7 ( 120/ 959- 409/1220) -34.7 E67-E40 N14-N32
     10 1523  800 (S17W26 L=296)  1570    599        2 (1431/ 673-1572/ 975)  47.0 W17-W32 S23-S07
     11  224  905 (N13E59 L=211)   367     65        2 ( 202/ 883- 244/ 928) -56.3 E61-E56 N11-N14
     12  564  865 (N06E31 L=239)   418    113        2 ( 517/ 836- 597/ 906)   9.5 E34-E28 N04-N08
     13  608  670 (S06E33 L=237)   851    201        2 ( 523/ 649- 705/ 692)  -4.4 E39-E26 S07-S04
     14  410  427 (S19E59 L=211)  1338    253        2 ( 367/ 340- 472/ 504)  85.6 E63-E56 S26-S13
     15 1354  429 (S39W09 L=279)   430     48        1 (1329/ 409-1386/ 450)  11.3 W06-W11 S40-S36
  

    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