Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  980 1865 (N46E36 L=  8)  1053    119        2 ( 944/1833-1023/1892)  68.2 E40-E32 N41-N48
      2 1091 1680 (N34E17 L= 28)  1920    472        7 (1041/1531-1126/1815) -46.5 E27-E09 N24-N44
      3  387 1626 (N13E63 L=341)  1221    167        1 ( 350/1584- 413/1675)  90.0 E66-E60 N10-N16
      4  340 1541 (N07E63 L=342)   638    113        1 ( 306/1518- 382/1570)  23.2 E66-E58 N05-N08
      5  358 1485 (N04E58 L=347)   685    188        2 ( 279/1439- 416/1534)  26.6 E63-E52 N00-N07
      6  717 1392 (N06E27 L= 17)   870    227        1 ( 647/1335- 805/1476) -12.1 E34-E20 N03-N09
      7 1007 1312 (N08E09 L= 36)   524    179        2 ( 926/1283-1099/1334)  21.8 E12-E02 N05-N10
      8  515 1308 (S04E38 L=  7)   375    112        1 ( 465/1275- 557/1332)   0.0 E41-E34 S04-S02
      9 1003 1092 (S04E03 L= 41)  1400    538        4 ( 761/ 879-1126/1284)  73.3 E11-W01 S21-N09
     10  576  999 (S20E26 L= 18)   209     55        0 ( 547/ 978- 607/1018)   0.0 E27-E23 S20-S18
     11  135  989 (S29E63 L=341)   523     86        1 ( 120/ 958- 156/1015) -56.3 E65-E61 S30-S27
     12 1874  925 (N14W60 L=104)   492    106        2 (1858/ 885-1898/ 973) -53.1 W57-W63 N11-N16
     13  536  914 (S25E27 L= 17)   368     52        1 ( 510/ 885- 565/ 938)  76.0 E28-E25 S27-S23
  

    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