Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  823 1434 (N13E23 L= 99)   632    199        1 ( 804/1353- 854/1530) -51.3 E26-E18 N08-N19
      2  270 1192 (S13E55 L= 67)   683    138        0 ( 245/1121- 301/1263)  90.0 E55-E53 S17-S08
      3  704 1193 (S03E23 L= 99)   310     65        0 ( 676/1160- 727/1229)  90.0 E23-E21 S05-S01
      4 1339 1096 (N08W16 L=138)   255     90        0 (1296/1068-1387/1120)  51.3 W13-W18 N05-N10
      5 1770 1025 (N17W48 L=170)   342     79        2 (1744/ 996-1789/1059)  68.2 W45-W49 N14-N19
      6 1440  983 (N04W25 L=147)   202    102        0 (1425/ 938-1463/1030) -68.2 W23-W26 N02-N07
      7 1700  906 (N08W45 L=167)   270     63        0 (1689/ 874-1710/ 939) -45.0 W43-W46 N06-N09
      8  639  881 (S23E19 L=103)   261    126        0 ( 577/ 866- 691/ 910)  40.6 E23-E16 S25-S19
      9 1030  612 (S28W13 L=135)   594    142        2 ( 950/ 592-1101/ 649)  32.0 W08-W16 S30-S24
     10 1265  601 (S21W27 L=149)   518    144        0 (1199/ 567-1344/ 637)  53.1 W24-W30 S25-S17
     11 1669  569 (S11W57 L=179)   338    111        1 (1640/ 536-1684/ 602) -26.6 W52-W59 S12-S09
     12 1587  476 (S18W55 L=177)  1754    450        3 (1488/ 426-1690/ 556)  18.4 W47-W65 S22-S12
     13 1472  322 (S30W56 L=178)   472     72        1 (1444/ 305-1502/ 341)  45.0 W54-W58 S31-S28
     14 1234  233 (S45W48 L=170)   728    123        0 (1201/ 206-1274/ 273)   8.1 W43-W51 S46-S42
  

    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