Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  725 1868 (N68E16 L=326)  1575     79        4 ( 677/1825- 759/1906) -20.2 E28-E09 N62-N75
      2 1575 1415 (N16W43 L= 25)   271     30        0 (1559/1395-1597/1437) -71.6 W41-W44 N14-N17
      3 1694 1386 (N12W52 L= 34)   736    109        3 (1657/1341-1719/1421)  33.7 W48-W55 N09-N14
      4  481 1383 (N30E32 L=310)   659     78        2 ( 447/1349- 512/1419)  31.0 E35-E29 N27-N32
      5  898 1378 (N23E03 L=340)   518    161        0 ( 815/1346- 967/1404) -32.0 E07-W01 N20-N25
      6  179 1204 (N23E62 L=280)   823    151        1 ( 165/1129- 198/1276)  83.7 E64-E59 N18-N27
      7 1792 1160 (S02W54 L= 37)   339     47        0 (1762/1143-1815/1183)   0.0 W51-W57 S03-S01
      8  942 1027 (N02E05 L=338)   288     67        0 ( 913/ 992- 971/1060)  36.9 E06-E02 N00-N03
      9 1710  649 (S33W46 L= 29)   364     23        1 (1692/ 631-1731/ 671) -31.0 W44-W49 S34-S31
     10 1401  544 (S35W19 L=  1)  2160    373        6 (1252/ 443-1547/ 643)  21.4 W07-W30 S40-S30
     11  303  509 (S20E66 L=276)  2432    292        3 ( 245/ 403- 392/ 618)  78.7 E71-E59 S28-S13
     12  688  393 (S34E36 L=306)   350    100        0 ( 641/ 382- 739/ 405)  -7.1 E40-E32 S35-S32
     13  463  342 (S34E62 L=280)   451     59        1 ( 438/ 318- 491/ 358) -45.0 E64-E58 S35-S32
  

    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