Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  653 1700 (N59E23 L= 24)   510     45        0 ( 630/1673- 679/1721) -26.6 E26-E18 N56-N61
      2  514 1648 (N57E41 L=  6)  2294    213        6 ( 426/1591- 609/1703)   4.2 E55-E27 N52-N61
      3  842 1566 (N44E03 L= 44)   721    140        2 ( 775/1539- 914/1596) -31.0 E08-W02 N41-N47
      4 1294 1542 (N33W30 L= 77)   282     40        2 (1273/1515-1315/1561) -90.0 W28-W32 N31-N34
      5 1062 1529 (N37W13 L= 60)   418    146        0 ( 992/1514-1131/1547)  -5.2 W07-W18 N35-N38
      6 1161 1311 (N21W14 L= 60)   719    198        0 (1105/1250-1243/1340)  12.5 W09-W18 N18-N23
      7  247 1269 (N31E60 L=347)   453     87        0 ( 213/1251- 291/1286)   5.2 E64-E53 N30-N32
      8  762 1096 (N15E15 L= 32)   592    178        1 ( 718/1021- 787/1179) -78.7 E16-E13 N10-N20
      9  276 1062 (N18E53 L=353)  1019    191        1 ( 251/ 965- 307/1121) -77.5 E56-E50 N12-N21
     10 1811  854 (S19W54 L=101)  1256    256        0 (1761/ 756-1863/ 966)  45.0 W48-W61 S24-S13
     11 1575  871 (S13W33 L= 79)   283    108        0 (1550/ 833-1604/ 927)  51.3 W30-W35 S14-S09
     12 1563  700 (S23W30 L= 77)  1135    210        1 (1470/ 645-1632/ 770)  17.1 W23-W36 S25-S19
     13 1120  677 (S16W00 L= 47)   631    154        2 (1088/ 605-1165/ 738)  69.4 E02-W03 S20-S12
     14 1642  652 (S29W38 L= 84)   382    106        0 (1604/ 622-1684/ 684)  15.9 W34-W41 S29-S27
     15 1202  522 (S28W03 L= 50)   577    103        0 (1176/ 478-1239/ 564) -66.8 W01-W04 S31-S24
  

    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