Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  978 1800 (N52E23 L=164)   667    124        1 ( 911/1783-1041/1815)  26.6 E28-E17 N48-N54
      2 1445 1662 (N50W25 L=212)   337     30        0 (1427/1637-1462/1686)  51.3 W22-W27 N47-N52
      3  598 1599 (N29E42 L=145)  2263    342        4 ( 463/1509- 736/1683) -11.6 E61-E27 N24-N32
      4  716 1335 (N14E24 L=163)   398    162        2 ( 672/1264- 746/1392) -40.6 E28-E20 N09-N16
      5  190 1332 (N06E71 L=116)   549     59        0 ( 169/1309- 212/1354) -14.0 E75-E66 N04-N07
      6  206 1228 (N00E63 L=124)   692     80        1 ( 173/1202- 248/1253)  14.0 E68-E58 S01-N02
      7 1339 1223 (N16W17 L=204)   305    104        0 (1283/1210-1395/1235)  23.2 W13-W20 N14-N17
      8 1801 1122 (N17W54 L=241)   365     50        0 (1774/1095-1823/1146) -21.8 W51-W56 N15-N18
      9 1775 1005 (N10W52 L=239)  2034    362        5 (1731/ 859-1829/1102) -51.8 W47-W59 N01-N15
     10 1632  957 (N05W40 L=227)   946    216        2 (1613/ 845-1654/1054) -80.5 W37-W41 S02-N10
     11 1853  964 (N08W62 L=249)   487     60        0 (1834/ 938-1878/ 992) -21.8 W59-W65 N07-N10
     12  576  885 (S15E26 L=161)   301    112        2 ( 523/ 857- 622/ 910)  33.7 E29-E23 S17-S12
     13  808  728 (S21E09 L=178)  1229    454        1 ( 600/ 671- 952/ 830)  30.6 E23-E01 S27-S12
     14 1753  641 (S12W60 L=247)  1932    312        0 (1675/ 520-1823/ 773)  76.8 W57-W63 S20-S03
     15 1003  257 (S53W17 L=204)   729    109        1 ( 968/ 219-1039/ 301) -31.0 W12-W22 S56-S48
  

    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