Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1065 1553 (N29W01 L=301)   436    155        0 ( 983/1535-1144/1567)  -5.7 E04-W06 N28-N30
      2  747 1424 (N20E19 L=281)   375     63        0 ( 704/1400- 777/1451)  36.9 E21-E16 N18-N21
      3 1216 1364 (N17W11 L=311)   562    133        2 (1179/1292-1245/1427) -77.5 W08-W12 N12-N21
      4  996 1310 (N13E02 L=297)  1107    285        1 ( 863/1233-1137/1401) -32.0 E10-W06 N08-N18
      5  471 1207 (N06E36 L=264)   239     61        0 ( 449/1171- 486/1232) -45.0 E37-E34 N04-N07
      6 1717 1068 (N02W46 L=346)   269     53        0 (1688/1052-1742/1087)  26.6 W43-W48 N00-N02
      7 1871  925 (S06W62 L=  2)  1384    235        5 (1829/ 860-1919/ 975)  60.3 W57-W69 S09-S02
      8 1684  873 (S10W44 L=344)   385     76        1 (1655/ 833-1709/ 913)  59.0 W42-W46 S12-S07
      9  189  835 (S15E61 L=238)   700    141        0 ( 163/ 792- 215/ 873)  33.7 E65-E57 S17-S13
     10  222  764 (S20E59 L=241)  1946    338        3 ( 178/ 684- 288/ 851)  42.3 E63-E50 S24-S14
     11  991  657 (S26E01 L=299)   851    212        3 ( 921/ 598-1040/ 751)  59.0 E05-W01 S30-S20
     12 1845  628 (S24W66 L=  6)   748     53        0 (1822/ 602-1867/ 653)  36.9 W63-W68 S25-S21
     13  271  541 (S34E60 L=240)   952    172        0 ( 258/ 475- 285/ 590)  58.0 E63-E56 S38-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