Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  617 1719 (N63E09 L=299)   421     78        0 ( 594/1683- 646/1751)  35.5 E13-E04 N60-N65
      2 1107 1670 (N40W29 L=337)   371     40        0 (1080/1645-1133/1692)  21.8 W26-W31 N38-N41
      3  955 1609 (N42W15 L=323)   337     94        1 ( 922/1576- 995/1639)  14.0 W11-W19 N40-N42
      4 1330 1506 (N24W33 L=341)   388    114        1 (1287/1470-1377/1527)   8.1 W29-W36 N22-N24
      5 1407 1439 (N18W35 L=343)   356    139        0 (1376/1379-1426/1497)  35.5 W30-W37 N15-N21
      6 1824 1265 (S04W60 L=  8)   362     34        1 (1810/1240-1842/1292)  26.6 W57-W62 S05-S03
      7 1840 1131 (S12W57 L=  5)   611     94        0 (1821/1087-1860/1178)  29.7 W53-W60 S13-S09
      8  318 1117 (N28E45 L=263)   998    230        3 ( 234/1049- 416/1175) -32.9 E54-E37 N22-N33
      9 1645  865 (S20W33 L=341)  1976    406        3 (1535/ 708-1747/1054)  29.5 W22-W45 S26-S12
     10  204  811 (N12E63 L=245)   930    159        4 ( 147/ 757- 255/ 868) -36.0 E69-E58 N08-N16
     11 1133  769 (S11E01 L=307)   622    163        0 (1104/ 688-1156/ 849)  58.0 E03-W02 S14-S06
     12 1091  541 (S23E09 L=299)   275     92        0 (1072/ 511-1123/ 587) -80.5 E10-E08 S25-S19
     13 1232  463 (S32E04 L=304)   654    117        1 (1185/ 432-1299/ 485) -23.2 E06-W01 S33-S29
     14 1013  321 (S36E24 L=285)  1564    260        3 ( 900/ 272-1134/ 389)   2.7 E33-E12 S37-S33
     15  747  157 (S41E60 L=248)   820     73        1 ( 722/ 131- 767/ 182)  13.2 E70-E53 S43-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