Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1406 1792 (N39W58 L=193)  1058    149        2 (1339/1749-1473/1828)   2.3 W48-W73 N37-N40
      2  848 1474 (N33E00 L=134)   755    231        1 ( 759/1449- 971/1495) -24.8 E06-W07 N29-N36
      3 1086 1390 (N22W12 L=147)   357    128        0 (1026/1365-1151/1409)  -7.1 W08-W16 N21-N23
      4 1533 1349 (N10W39 L=174)   666    148        1 (1486/1286-1571/1403) -76.0 W37-W40 N05-N13
      5  184 1213 (N31E62 L= 73)  2266    222        3 ( 122/1112- 254/1294) -30.3 E79-E51 N23-N37
      6 1143 1250 (N13W12 L=147)   193     92        0 (1102/1231-1187/1275)   9.5 W09-W15 N12-N13
      7 1918 1164 (S10W71 L=206)  2004    185        3 (1873/1073-1959/1249) -70.0 W65-W79 S16-S05
      8  556 1116 (N18E26 L=108)  1655    400        3 ( 372/1054- 696/1209)   2.3 E40-E15 N15-N20
      9 1838 1148 (S09W59 L=193)   399     44        0 (1825/1120-1853/1178)  56.3 W56-W60 S10-S07
     10 1913 1059 (S16W67 L=202)  1095    105        3 (1891/1019-1944/1098) -78.7 W63-W73 S19-S14
     11 1801  830 (S27W50 L=185)  1779    297        2 (1721/ 721-1865/ 957)  36.3 W41-W58 S32-S20
     12 1533  780 (S23W26 L=161)  1007    237        1 (1477/ 685-1574/ 880)  48.0 W20-W30 S27-S17
     13 1230  719 (S19W05 L=140)   798    395        0 (1150/ 553-1322/ 877)  45.0 E03-W13 S27-S11
     14  389  504 (S14E57 L= 77)   942    151        2 ( 358/ 445- 426/ 573)  66.0 E62-E54 S18-S09
     15  853  453 (S27E25 L=109)   456     91        1 ( 829/ 402- 879/ 499)  40.6 E28-E21 S30-S24
  

    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