Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  881 1428 (N29E10 L=240)   246     68        1 ( 843/1410- 922/1449)  -9.5 E13-E07 N27-N30
      2  572 1270 (N18E31 L=220)   648    145        2 ( 544/1210- 615/1322)  90.0 E32-E27 N14-N21
      3 1297 1211 (N15W17 L=268)   619    237        2 (1226/1121-1340/1302)  65.6 W12-W20 N09-N20
      4 1128 1277 (N19W07 L=257)   309     69        1 (1094/1256-1160/1296) -26.6 W04-W08 N17-N20
      5 1414 1235 (N16W25 L=276)   391    129        1 (1379/1171-1439/1295) -69.4 W23-W27 N12-N20
      6  311 1192 (N12E51 L=199)   371    128        0 ( 268/1159- 345/1214) -20.6 E55-E47 N10-N13
      7 1142 1161 (N12W07 L=258)   267    100        0 (1105/1127-1196/1202) -38.7 W04-W10 N09-N14
      8 1789 1099 (N07W55 L=306)   430     90        0 (1773/1045-1804/1137) -71.6 W53-W57 N03-N09
      9 1408 1107 (N09W24 L=275)   235     67        1 (1368/1082-1442/1132) -31.0 W21-W26 N06-N10
     10  200  975 (S02E62 L=188)  1513    279        3 ( 136/ 952- 250/1011)   7.1 E72-E56 S03-N00
     11  589  947 (S02E28 L=223)   333    129        1 ( 555/ 894- 636/ 985)  45.0 E30-E24 S05-N00
     12 1226  802 (S10W13 L=263)   606    185        1 (1161/ 740-1287/ 875) -52.1 W08-W17 S14-S05
     13  886  849 (S08E08 L=242)   219     24        0 ( 862/ 834- 910/ 867) -45.0 E09-E06 S08-S06
     14  783  769 (S13E15 L=235)   514    145        1 ( 730/ 730- 855/ 808)  32.0 E18-E10 S15-S10
     15 1590  708 (S17W39 L=290)  1687    313        7 (1536/ 581-1644/ 779)  72.9 W34-W43 S25-S12
     16  438  692 (S19E41 L=210)   419     90        0 ( 408/ 657- 475/ 739) -51.3 E42-E38 S21-S15
     17 1217  698 (S17W13 L=263)   220     54        1 (1183/ 679-1247/ 719) -14.0 W10-W14 S18-S15
     18 1157  638 (S21W09 L=259)   505    110        1 (1110/ 596-1203/ 677)  45.0 W06-W12 S23-S18
     19  888  536 (S28E09 L=241)   667    233        1 ( 859/ 458- 952/ 617)  71.6 E11-E04 S34-S22
     20  639  554 (S28E27 L=223)   356     97        1 ( 597/ 535- 677/ 581)  15.9 E30-E23 S28-S25
     21 1430  544 (S28W30 L=280)   335     82        1 (1385/ 526-1468/ 559)   9.5 W26-W32 S28-S26
     22 1225  480 (S32W15 L=266)   286     43        0 (1192/ 458-1246/ 503)  45.0 W13-W16 S33-S30
  

    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