Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1668 1533 (N29W61 L=195)  2012    208        5 (1628/1449-1710/1604)  55.0 W55-W71 N23-N33
      2 1351 1543 (N35W31 L=166)   548    103        1 (1322/1490-1388/1575)  32.0 W27-W35 N31-N37
      3  964 1403 (N30E00 L=134)   246     80        1 ( 950/1361- 987/1436) -90.0 E01-W00 N26-N32
      4  547 1302 (N26E31 L=104)  2332    501        4 ( 416/1183- 747/1359)   2.3 E41-E16 N19-N30
      5 1414 1295 (N18W29 L=163)   250     87        0 (1397/1256-1430/1329)  53.1 W26-W30 N15-N20
      6  218 1215 (N22E63 L= 72)  1740    175        3 ( 193/1133- 249/1288)  90.0 E68-E59 N16-N26
      7 1490 1261 (N15W33 L=168)   352    124        1 (1435/1234-1524/1287) -26.6 W29-W35 N13-N17
      8  581 1078 (N12E28 L=107)   239     66        0 ( 560/1050- 607/1103)  45.0 E29-E26 N10-N13
      9 1736  830 (S15W49 L=183)   863    131        1 (1694/ 760-1771/ 878)  45.0 W45-W52 S18-S12
     10  891  831 (S05E10 L=125)   247     84        0 ( 854/ 805- 935/ 847) -31.0 E12-E07 S07-S04
     11  384  742 (S08E47 L= 88)   357     60        1 ( 364/ 718- 407/ 765) -33.7 E48-E45 S09-S06
     12 1238  500 (S31W10 L=144)   369    112        0 (1187/ 485-1296/ 513) -14.0 W06-W14 S32-S29
     13  560  410 (S32E44 L= 91)   665    141        0 ( 536/ 350- 601/ 478)  73.3 E45-E41 S36-S26
     14 1014  421 (S34E07 L=127)   295     83        1 ( 965/ 407-1057/ 435) -18.4 E10-E04 S35-S32
     15 1065  196 (S57E09 L=125)   411     58        2 (1033/ 182-1103/ 209)  -7.1 E12-E04 S58-S55
  

    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