Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  546 1696 (N38E46 L=353)  1835    184        3 ( 456/1658- 626/1738) -12.3 E58-E35 N34-N41
      2 1082 1667 (N38E00 L= 39)   338     52        0 (1048/1652-1118/1684) -14.0 E02-W02 N36-N39
      3  829 1394 (N17E15 L= 24)   515    168        0 ( 782/1321- 867/1465)  66.0 E16-E12 N12-N21
      4 1779 1408 (N26W57 L= 95)  1238    102        2 (1734/1372-1819/1450) -12.5 W51-W61 N23-N28
      5 1525 1388 (N21W31 L= 70)   283     72        0 (1499/1353-1550/1416) -53.1 W29-W33 N19-N23
      6  237 1313 (N11E60 L=339)   401     63        0 ( 220/1282- 252/1344) -45.0 E63-E57 N08-N12
      7  334 1108 (S02E47 L=352)   432    104        0 ( 310/1065- 366/1161)  51.3 E48-E44 S04-N01
      8 1805  961 (S02W55 L= 94)  1208    142        3 (1776/ 894-1833/1033) -60.3 W51-W59 S05-N02
      9 1060  996 (S06W02 L= 41)   189     17        0 (1040/ 977-1081/1014)  26.6 W01-W03 S07-S04
     10 1340  907 (S09W20 L= 59)   198     74        0 (1327/ 866-1357/ 946)  90.0 W19-W20 S11-S07
     11 1634  712 (S19W45 L= 83)   543    109        1 (1571/ 684-1673/ 740)  29.7 W40-W47 S20-S16
     12 1674  663 (S21W50 L= 89)  1021    187        2 (1593/ 598-1739/ 727)  45.0 W44-W54 S25-S16
     13 1437  693 (S22W30 L= 69)   302     99        0 (1394/ 664-1481/ 726) -15.9 W26-W33 S23-S19
     14 1345  405 (S42W32 L= 71)   287     51        0 (1326/ 384-1370/ 436) -26.6 W29-W35 S43-S39
     15 1436  417 (S40W40 L= 78)   372     45        1 (1405/ 396-1466/ 435)   0.0 W36-W42 S41-S38
  

    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