Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  743 1840 (N36E51 L=105)  2514    367        5 ( 703/1772- 779/1909) -42.9 E60-E44 N30-N43
      2  400 1546 (N08E57 L= 98)   375     53        1 ( 378/1516- 422/1571)  90.0 E59-E55 N06-N10
      3  948 1516 (N20E19 L=137)   873    166        2 ( 899/1463-1017/1561) -16.7 E23-E13 N16-N22
      4  307  775 (S39E44 L=111)   393     83        1 ( 276/ 757- 328/ 801)  31.0 E47-E41 S40-S37
      5 1838  776 (N06W63 L=218)   507    165        0 (1795/ 761-1874/ 790)  10.3 W57-W68 N04-N07
      6 1257  714 (S16W22 L=178)   816    212        0 (1144/ 668-1358/ 772)  50.7 W17-W26 S21-S09
      7 1651  590 (S10W54 L=209)   513     88        3 (1614/ 551-1680/ 625)  78.7 W52-W55 S12-S07
      8 1344  562 (S21W34 L=189)   276     98        1 (1324/ 534-1370/ 618) -33.7 W30-W36 S22-S18
      9 1577  567 (S14W49 L=204)   364     87        0 (1558/ 520-1606/ 603) -71.6 W47-W51 S16-S10
     10 1474  485 (S21W46 L=201)   613    180        2 (1424/ 459-1547/ 527)  10.3 W41-W52 S22-S19
     11  873  437 (S45W11 L=166)   961    254        0 ( 739/ 404- 996/ 469)  19.3 W00-W20 S49-S41
     12 1218  348 (S38W38 L=194)   373     73        1 (1181/ 331-1264/ 364)  45.0 W35-W41 S39-S35
     13 1490  278 (S31W62 L=217)   586    186        0 (1466/ 251-1523/ 310)   0.0 W57-W66 S32-S30
  

    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