Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1797 1482 (N12W68 L=292)   858     94        0 (1752/1454-1831/1507) -35.5 W63-W71 N09-N14
      2  732 1368 (N27E11 L=212)   426    122        0 ( 684/1324- 783/1408) -54.5 E14-E08 N23-N30
      3 1661 1302 (N05W46 L=270)   921    194        2 (1576/1245-1745/1350)   7.1 W38-W54 N03-N06
      4 1168 1253 (N12W13 L=236)   389     95        2 (1130/1228-1220/1283) -51.3 W10-W15 N09-N14
      5  430 1242 (N26E35 L=189)   298     96        0 ( 382/1220- 467/1274)   8.1 E38-E31 N24-N26
      6 1363 1185 (N04W23 L=246)   348     82        0 (1320/1153-1396/1214) -53.1 W20-W24 N02-N06
      7  402 1129 (N19E38 L=186)  1277    409        1 ( 259/1070- 579/1174) -21.0 E50-E24 N14-N24
      8 1849 1038 (S14W57 L=281)   390     48        1 (1829/1009-1869/1066)  45.0 W54-W59 S15-S12
      9  875  887 (S03E11 L=213)   216     74        0 ( 832/ 862- 902/ 905) -36.9 E13-E09 S04-S01
     10  833  749 (S10E16 L=207)   964    315        1 ( 755/ 706- 974/ 828) -22.6 E20-E07 S13-S04
     11  512  671 (S09E39 L=185)   517     86        2 ( 472/ 640- 543/ 717)  23.2 E42-E35 S11-S06
     12 1183  656 (S23W02 L=226)   273    100        0 (1159/ 612-1207/ 703)  45.0 W00-W04 S25-S20
     13 1479  551 (S36W21 L=245)  1852    534        2 (1276/ 405-1682/ 694)  15.9 W03-W38 S41-S30
     14  337  539 (S14E59 L=165)  6512    391       17 ( 232/ 427- 425/ 651) -57.3 E72-E48 S21-S06
     15  652  620 (S14E31 L=193)   216     60        0 ( 629/ 595- 673/ 638)   0.0 E32-E29 S16-S13
     16  655  541 (S19E33 L=190)   350     73        0 ( 631/ 497- 677/ 573) -90.0 E34-E31 S22-S17
     17 1730  525 (S45W48 L=272)   616    107        0 (1676/ 498-1772/ 561)   9.5 W41-W53 S46-S42
     18  883  327 (S38E28 L=196)   982    201        0 ( 816/ 265- 953/ 419)  26.6 E36-E18 S41-S32
     19 1042  262 (S47E20 L=204)   509     82        2 (1006/ 233-1079/ 284)  12.5 E24-E15 S48-S45
  

    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