Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  878 1519 (N35E12 L=240)   228     63        0 ( 844/1507- 913/1531)   0.0 E14-E08 N34-N36
      2  861 1428 (N29E12 L=240)   229     75        0 ( 827/1411- 903/1446)  -9.5 E14-E08 N27-N30
      3  559 1267 (N18E32 L=220)   670    104        2 ( 534/1208- 584/1321)  81.9 E33-E29 N13-N21
      4 1278 1209 (N15W16 L=268)   659    247        0 (1192/1132-1323/1300)  51.3 W10-W19 N10-N20
      5 1104 1273 (N19W05 L=256)   316    104        2 (1066/1235-1144/1291)  21.8 W02-W07 N16-N20
      6  301 1192 (N12E52 L=199)   568    177        1 ( 251/1145- 338/1227) -24.0 E57-E48 N09-N13
      7 1132 1151 (N11W07 L=258)   219     65        0 (1098/1124-1176/1177) -21.8 W04-W09 N09-N12
      8 1775 1105 (N08W54 L=306)   344     63        1 (1756/1077-1791/1134) -63.4 W52-W55 N05-N09
      9 1391 1108 (N09W23 L=275)   278     77        1 (1351/1080-1428/1133) -31.0 W20-W25 N06-N10
     10  196  983 (S02E63 L=189)  1755    359        4 ( 128/ 951- 283/1051)  12.8 E74-E52 S03-N03
     11  523  962 (S01E32 L=219)   221     52        0 ( 500/ 943- 540/ 993)  63.4 E34-E31 S02-N00
     12  562  934 (S03E30 L=222)   355    104        0 ( 535/ 891- 601/ 977)  51.3 E31-E26 S05-N00
     13 1205  803 (S10W11 L=263)   801    237        3 (1142/ 744-1272/ 889) -52.1 W07-W16 S13-S04
     14  880  845 (S08E09 L=243)   284     93        0 ( 843/ 822- 928/ 867) -31.0 E11-E05 S09-S06
     15 1315  804 (S10W19 L=270)   225     76        1 (1281/ 792-1359/ 817)  11.3 W16-W21 S10-S09
     16  771  768 (S13E16 L=236)   717    226        4 ( 709/ 703- 856/ 810)  26.6 E20-E10 S17-S10
     17 1575  720 (S16W38 L=289)  1545    276        6 (1524/ 614-1629/ 774)  78.7 W33-W42 S22-S12
     18 1192  666 (S19W11 L=263)   842    270        2 (1096/ 598-1312/ 760)  40.2 W05-W18 S23-S12
     19  426  685 (S19E42 L=210)   699    154        2 ( 386/ 626- 461/ 748) -76.0 E44-E39 S23-S15
     20 1466  639 (S21W31 L=282)   307     94        1 (1445/ 593-1490/ 683)  80.5 W29-W31 S24-S18
     21  636  566 (S27E27 L=224)   528    133        1 ( 587/ 533- 676/ 616)  26.6 E31-E23 S29-S23
     22  864  572 (S26E11 L=241)   285    114        0 ( 842/ 526- 903/ 608)  50.2 E12-E07 S29-S23
     23 1395  552 (S27W27 L=278)   455    131        3 (1349/ 532-1451/ 591) -18.4 W22-W31 S28-S24
     24  872  487 (S32E11 L=241)   289     57        2 ( 854/ 459- 900/ 516) -63.4 E11-E08 S34-S29
     25 1209  482 (S32W14 L=266)   363     77        0 (1167/ 456-1237/ 516)  45.0 W11-W15 S34-S29
  

    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