Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  548 1741 (N24E57 L=304)   624    187        0 ( 509/1716- 590/1768) -10.3 E62-E51 N22-N25
      2 1129 1234 (N08E00 L=  1)   330     79        0 (1110/1191-1147/1287) -80.5 E01-W01 N05-N11
      3  258 1205 (S15E56 L=305)   831    139        1 ( 244/1141- 280/1281) -58.0 E58-E52 S18-S10
      4 1389 1181 (N13W16 L= 17)   316    118        0 (1334/1153-1421/1222)  45.0 W13-W17 N10-N15
      5 1771 1100 (N21W45 L= 46)  1074    266        0 (1706/ 986-1822/1203) -28.1 W37-W52 N16-N24
      6  710 1171 (S06E22 L=339)   243     70        0 ( 678/1141- 749/1190)  53.1 E22-E19 S08-S04
      7  350 1131 (S17E45 L=315)   274     48        0 ( 333/1102- 374/1154)  56.3 E46-E43 S18-S15
      8  249 1064 (S23E53 L=308)   999    236        3 ( 184/1037- 323/1101)  -8.1 E59-E45 S24-S21
      9 1063 1044 (S04W02 L=  2)   218     77        0 (1033/1007-1092/1084) -31.0 E01-W04 S05-S02
     10  865  774 (S24E02 L=359)   348     96        0 ( 812/ 755- 909/ 799)  51.3 E04-W00 S26-S21
     11 1208  761 (S15W18 L= 19)   241    101        0 (1159/ 740-1258/ 781)  45.0 W15-W20 S17-S12
     12  968  601 (S31W10 L= 11)  1561    462        2 ( 773/ 522-1162/ 699)   4.1 E05-W23 S34-S27
     13 1693  496 (S13W64 L= 64)  1093    204        4 (1647/ 457-1741/ 544)  81.9 W60-W71 S16-S09
     14 1591  384 (S22W62 L= 62)   589     71        2 (1558/ 368-1621/ 400)  45.0 W58-W64 S24-S20
     15 1267  330 (S37W43 L= 43)   555    123        1 (1211/ 317-1329/ 347)  39.8 W39-W46 S39-S34
  

    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