Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1348 1516 (N23W34 L=215)  4113    967       13 (1004/1448-1686/1556) -23.5 W13-W59 N12-N33
      2  814 1350 (N28E04 L=177)   396    113        2 ( 784/1304- 851/1402)   5.7 E05-E02 N25-N31
      3 1841 1165 (S10W58 L=239)  2153    416        5 (1796/1092-1918/1287) -63.4 W53-W65 S16-S02
      4 1934 1047 (S21W66 L=246)   783    153        2 (1913/1017-1960/1074)  36.9 W63-W69 S22-S18
      5 1877 1007 (S21W57 L=238)   459     86        2 (1854/ 971-1892/1039) -90.0 W54-W60 S23-S18
      6 1610  722 (S29W29 L=210)  2117    509        4 (1447/ 549-1677/ 957)  39.6 W14-W37 S36-S16
      7 1198  909 (S06W07 L=187)   239    104        0 (1153/ 879-1247/ 928)   0.0 W03-W09 S07-S04
      8  580  816 (N04E31 L=150)   617    252        2 ( 488/ 747- 694/ 864) -42.3 E36-E25 S02-N08
      9 1459  717 (S24W18 L=199)   597    187        2 (1387/ 631-1531/ 812)  28.3 W11-W24 S28-S20
     10 1148  560 (S25E05 L=175)   554    234        1 (1097/ 467-1183/ 663)  50.7 E11-W00 S29-S18
     11  755  437 (S22E33 L=147)   499    178        2 ( 713/ 382- 824/ 479)  16.7 E37-E27 S25-S20
     12  501  412 (S18E53 L=128)   427    111        1 ( 483/ 369- 519/ 455)  51.3 E55-E51 S20-S15
     13  711  305 (S30E44 L=137)   380     73        0 ( 680/ 287- 748/ 323)  -9.5 E46-E40 S31-S28
     14  776  246 (S36E44 L=137)   385    115        1 ( 743/ 225- 808/ 275)   0.0 E47-E40 S37-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