Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1513 1695 (N47W32 L=259)  1467    147        3 (1445/1653-1577/1734)   0.0 W24-W39 N43-N50
      2  665 1581 (N25E32 L=195)   614    112        0 ( 643/1523- 682/1640) -53.1 E35-E29 N20-N29
      3  398 1509 (N18E51 L=176)   643    113        1 ( 377/1463- 419/1559) -45.0 E53-E47 N15-N21
      4 1378 1394 (N21W18 L=245)  1486    394        1 (1205/1273-1504/1484) -20.9 W06-W27 N15-N25
      5  719 1425 (N15E24 L=203)   393     49        1 ( 686/1395- 753/1444)  26.6 E26-E21 N13-N16
      6 1773 1306 (N23W50 L=277)  1003    237        2 (1713/1231-1811/1396) -56.3 W45-W54 N17-N27
      7 1873 1274 (N23W63 L=289)   871     69        2 (1846/1241-1892/1320)  40.6 W58-W67 N20-N26
      8  184 1253 (N01E65 L=162)   614     62        3 ( 162/1221- 211/1281) -31.0 E68-E61 N00-N03
      9  499 1035 (S10E33 L=193)   210     58        1 ( 474/1005- 523/1057)  53.1 E34-E31 S12-S08
     10  909  853 (S17E05 L=222)   391    190        0 ( 827/ 829-1000/ 876)  24.0 E09-W00 S19-S15
     11  314  841 (S23E49 L=178)   671    126        1 ( 261/ 821- 372/ 865)   0.0 E54-E43 S24-S21
     12  651  682 (S31E21 L=205)   618    131        0 ( 605/ 631- 704/ 725)  41.2 E25-E17 S34-S27
     13 1512  546 (S27W42 L=269)  2615    468        2 (1323/ 433-1695/ 676)  46.4 W32-W52 S37-S16
     14 1431  356 (S41W47 L=274)   377     62        0 (1400/ 328-1456/ 386)  90.0 W45-W48 S43-S38
  

    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