Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1070 1553 (N29W02 L=302)   372    111        0 (1006/1535-1132/1568)  -8.1 E02-W05 N28-N30
      2 1799 1500 (N30W60 L=  1)   667    106        0 (1772/1470-1822/1527)  76.0 W56-W62 N27-N32
      3  736 1425 (N20E20 L=281)   409    106        0 ( 671/1390- 778/1450)  33.7 E23-E16 N17-N21
      4 1198 1376 (N18W10 L=311)   510    114        0 (1165/1321-1229/1430) -66.8 W07-W11 N14-N21
      5  985 1306 (N13E03 L=298)   978    229        0 ( 871/1243-1096/1381) -31.6 E10-W03 N09-N17
      6 1703 1061 (N01W45 L=345)   359     66        0 (1681/1026-1731/1084)  45.0 W42-W47 S01-N02
      7 1867  937 (S05W62 L=  2)   966    212        5 (1823/ 901-1914/ 982)  32.0 W56-W68 S07-S02
      8 1677  880 (S10W44 L=344)   424     80        0 (1644/ 846-1702/ 928)  51.3 W41-W45 S12-S06
      9  205  783 (S18E60 L=240)  2967    355        8 ( 156/ 675- 260/ 871)  85.2 E65-E53 S24-S12
     10  274  777 (S19E53 L=248)   442    104        3 ( 248/ 747- 300/ 808)  31.0 E56-E50 S20-S17
     11  970  660 (S26E03 L=298)  1028    322        3 ( 842/ 602-1029/ 784)  45.0 E11-W01 S30-S18
     12 1827  627 (S24W64 L=  4)   922    122        0 (1783/ 598-1859/ 662)  23.2 W59-W67 S25-S21
     13 1713  536 (S31W55 L=356)   441     80        0 (1689/ 486-1738/ 564)  80.5 W53-W57 S34-S28
  

    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