Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  747 1762 (N53E33 L=159)   383     60        1 ( 713/1739- 779/1777)  15.9 E36-E29 N51-N54
      2 1587 1676 (N47W58 L=249)   731     71        1 (1553/1648-1620/1696)   7.6 W50-W65 N45-N49
      3 1172 1546 (N37W10 L=201)   321     97        2 (1130/1529-1214/1568)   0.0 W06-W12 N35-N38
      4  369 1499 (N30E56 L=135)  1567    238        2 ( 268/1443- 463/1543)  -1.9 E76-E45 N26-N32
      5 1228 1489 (N33W14 L=205)   233     37        1 (1208/1469-1247/1517)  76.0 W12-W15 N31-N35
      6 1244 1326 (N22W14 L=205)   376    107        1 (1222/1267-1268/1376)  74.1 W12-W15 N18-N25
      7  271 1170 (N09E55 L=137)   787    180        1 ( 250/1096- 299/1259) -59.0 E58-E50 N04-N14
      8 1657 1054 (N05W42 L=234)  1203    306        2 (1583/ 924-1698/1181) -68.2 W36-W45 S02-N13
      9  884 1094 (N07E09 L=183)   185    110        0 ( 842/1061- 912/1131) -36.9 E11-E06 N04-N09
     10  605 1091 (N06E27 L=165)   247    124        0 ( 563/1053- 660/1116)  33.7 E29-E23 N03-N07
     11 1872 1063 (N06W65 L=256)   536     53        1 (1853/1029-1889/1092) -53.1 W62-W67 N03-N07
     12 1839  836 (S08W62 L=253)   528     55        2 (1820/ 802-1855/ 867) -53.1 W59-W63 S10-S06
     13  314  824 (S12E50 L=142)   310     58        0 ( 293/ 800- 331/ 847)  56.3 E51-E47 S13-S10
     14  255  701 (S21E59 L=132)   704    123        1 ( 205/ 670- 295/ 743)  21.8 E68-E53 S23-S17
     15 1761  606 (S23W60 L=252)  3000    276        7 (1666/ 526-1840/ 725)  47.3 W52-W66 S28-S15
     16  573  653 (S22E30 L=162)   246     78        1 ( 560/ 607- 592/ 689)  59.0 E31-E28 S24-S19
     17  658  597 (S25E24 L=167)   492    142        1 ( 585/ 568- 705/ 640)  26.6 E30-E20 S27-S22
     18  844  584 (S25E11 L=180)   784    200        1 ( 784/ 544- 920/ 637) -24.0 E14-E05 S28-S21
     19 1274  218 (S55W32 L=223)  2490    237        8 (1170/ 187-1395/ 259)  10.9 W20-W48 S59-S50
  

    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