Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1576 1483 (N32W44 L=332)  1473    312        1 (1449/1383-1674/1575) -45.0 W34-W50 N25-N39
      2  384 1487 (N31E54 L=235)   400     74        1 ( 355/1467- 417/1514)   8.1 E56-E49 N29-N32
      3 1759 1469 (N31W65 L=353)   508     79        0 (1721/1443-1795/1488) -20.6 W60-W70 N28-N32
      4 1690  960 (S01W45 L=334)  1149    195        4 (1639/ 896-1755/1015)  40.6 W41-W51 S04-N02
      5  149  878 (S09E71 L=217)  1684     99        6 ( 122/ 832- 187/ 928)  50.2 E78-E63 S11-S05
      6 1816  851 (S08W59 L=347)   665    106        1 (1779/ 797-1836/ 891) -63.4 W55-W62 S11-S05
      7  217  729 (S18E65 L=224)  1468    188        2 ( 167/ 666- 280/ 814)  25.6 E80-E54 S22-S11
      8 1168  680 (S18W10 L=298)   316     94        0 (1147/ 630-1184/ 724) -71.6 W08-W10 S21-S15
      9 1724  695 (S18W52 L=341)   450     83        1 (1692/ 666-1764/ 716)  26.6 W49-W56 S19-S16
     10 1760  553 (S28W64 L=353)   984    113        0 (1709/ 519-1803/ 592)  21.8 W58-W69 S30-S25
     11 1435  557 (S27W30 L=318)   275     74        0 (1420/ 513-1447/ 591) -78.7 W28-W31 S29-S24
     12 1103  517 (S29W06 L=294)  1391    285        3 ( 975/ 477-1228/ 575)  22.4 E03-W14 S32-S25
     13  994  264 (S51E02 L=286)   329     39        1 ( 968/ 249-1021/ 283)  26.6 E04-W00 S52-S49
  

    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