Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  971 1786 (N59W15 L= 48)  1378    295        3 ( 829/1741-1096/1826)  -1.7 E02-W31 N57-N60
      2 1391 1513 (N30W35 L= 67)   597    239        1 (1290/1438-1466/1566) -54.0 W29-W37 N23-N34
      3  374 1357 (N35E46 L=347)  3372    563        5 ( 278/1136- 538/1518)  50.7 E52-E31 N21-N45
      4 1194 1461 (N30W19 L= 51)   315    110        0 (1142/1434-1246/1494) -45.0 W16-W21 N27-N33
      5 1827 1341 (N10W67 L= 99)   780     97        5 (1791/1312-1864/1371) -32.0 W63-W71 N07-N12
      6  186 1225 (N27E66 L=326)  2362    226        3 ( 134/1128- 243/1309) -19.0 E85-E56 N21-N31
      7 1348 1218 (N13W23 L= 55)   324    128        0 (1312/1169-1398/1246)  23.2 W19-W26 N10-N14
      8  776 1177 (N19E13 L= 19)   269    124        0 ( 731/1143- 828/1222) -50.2 E15-E10 N16-N22
      9  438 1002 (N12E38 L=354)   457    141        0 ( 414/ 955- 455/1067) -90.0 E40-E37 N09-N16
     10  387  934 (N08E43 L=349)   294     68        0 ( 368/ 899- 409/ 967) -76.0 E44-E41 N06-N10
     11  355  872 (N05E47 L=346)   284     66        0 ( 336/ 842- 380/ 908) -68.2 E48-E44 N02-N07
     12 1566  823 (S15W32 L= 64)   991    203        0 (1481/ 772-1648/ 874)   8.7 W25-W38 S16-S12
     13  691  598 (S15E28 L=  5)  1241    392        2 ( 586/ 523- 776/ 722)  33.7 E36-E20 S19-S08
     14  417  633 (S10E47 L=345)   951    121        3 ( 392/ 569- 453/ 685)  41.2 E51-E42 S14-S07
     15  533  620 (S12E38 L=354)   299     56        0 ( 504/ 605- 565/ 638) -26.6 E40-E36 S13-S10
     16 1555  440 (S42W33 L= 65)   359     41        0 (1529/ 421-1584/ 457) -11.3 W29-W35 S43-S40
     17 1395  343 (S47W18 L= 50)   764    101        1 (1351/ 318-1445/ 375)   0.0 W13-W23 S48-S42
     18 1226  286 (S48W02 L= 35)   479     63        0 (1198/ 265-1265/ 309) -31.0 W00-W05 S49-S44
     19 1171  230 (S52E04 L= 28)  1092     87        3 (1126/ 200-1222/ 268) -29.7 E08-W00 S55-S48
     20 1186  166 (S61E05 L= 27)   592     52        0 (1160/ 149-1211/ 184) -56.3 E08-E02 S64-S57
  

    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