Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1139 1715 (N42W34 L=150)   295     83        0 (1098/1702-1182/1730) -18.4 W30-W37 N40-N43
      2 1568 1667 (N24W62 L=178)   892    184        0 (1490/1621-1629/1694) -37.9 W55-W66 N20-N27
      3 1461 1550 (N22W45 L=161)  1530    411        0 (1300/1511-1649/1607) -35.5 W36-W57 N14-N29
      4 1288 1332 (N15W24 L=140)   306    114        0 (1233/1320-1352/1341) -23.2 W20-W27 N13-N16
      5 1583 1280 (N04W40 L=156)   274    102        0 (1556/1237-1609/1329) -90.0 W39-W41 N00-N07
      6 1009 1273 (N20W06 L=122)   485    177        0 ( 933/1234-1090/1294) -41.2 W01-W09 N15-N22
      7  423 1161 (N28E36 L= 80)  1027    244        2 ( 322/1109- 528/1215) -27.9 E44-E27 N24-N33
      8  735 1070 (N15E15 L=101)   701    277        1 ( 618/1034- 858/1093) -26.6 E22-E08 N11-N18
      9  245 1019 (N24E54 L= 61)   435     82        0 ( 217/ 988- 267/1056)  31.0 E58-E51 N21-N25
     10 1755  869 (S24W43 L=159)   296     69        0 (1722/ 853-1785/ 891)  -9.5 W40-W46 S25-S23
     11 1458  690 (S26W17 L=133)  1458    348        3 (1381/ 529-1496/ 850)  56.3 W08-W21 S34-S16
     12 1209  779 (S13W04 L=120)   193    103        0 (1161/ 761-1259/ 796)  -8.1 W00-W07 S13-S11
     13  445  359 (S20E65 L= 51)  1296    112        2 ( 383/ 338- 501/ 386) -12.1 E74-E59 S21-S17
     14  651  368 (S23E45 L= 71)   318     60        0 ( 622/ 350- 683/ 381)   0.0 E48-E42 S24-S22
  

    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