Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  493 1680 (N62E31 L= 38)   610     64        0 ( 464/1647- 518/1702) -33.7 E38-E26 N59-N65
      2 1306 1572 (N28W34 L=103)   449    149        1 (1283/1506-1338/1631)  66.0 W31-W38 N22-N31
      3  880 1524 (N37W05 L= 74)   468    129        0 ( 816/1490- 943/1546) -40.6 W00-W08 N33-N39
      4  491 1486 (N46E27 L= 42)   931    165        1 ( 414/1451- 565/1509)  -3.6 E35-E19 N42-N47
      5  453 1197 (N27E33 L= 36)   540    167        0 ( 425/1152- 512/1260) -53.1 E34-E28 N23-N31
      6  646 1028 (N13E22 L= 47)   348     95        1 ( 619/ 986- 682/1055)  21.8 E24-E19 N11-N14
      7 1544 1018 (S09W30 L= 99)   241     51        2 (1522/ 987-1563/1052)  45.0 W28-W31 S10-S07
      8 1506  790 (S21W23 L= 92)   394    170        1 (1488/ 717-1522/ 877)  73.3 W21-W25 S26-S16
      9 1709  692 (S34W39 L=108)   589    106        1 (1690/ 636-1726/ 746) -82.9 W36-W40 S38-S30
     10 1541  698 (S28W24 L= 93)   264     64        0 (1518/ 678-1559/ 729)  33.7 W22-W25 S29-S26
     11 1298  639 (S25W06 L= 75)   375    151        0 (1211/ 624-1360/ 653) -21.8 W00-W10 S26-S22
     12  630  317 (S28E50 L= 19)  2490    301        4 ( 573/ 199- 747/ 431)  18.9 E72-E34 S36-S23
     13 1468  347 (S53W14 L= 83)   459     52        1 (1436/ 330-1500/ 369) -29.7 W10-W17 S55-S50
     14 1322  237 (S58E05 L= 64)   685     51        2 (1295/ 212-1353/ 262) -60.3 E07-E01 S60-S53
     15 1227  180 (S60E18 L= 51)   447     38        1 (1208/ 161-1248/ 203)  63.4 E21-E14 S62-S56
  

    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