Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  805 1673 (N46E22 L=128)  2991    479        8 ( 667/1575- 971/1735)  16.9 E32-E06 N37-N51
      2 1176 1631 (N44W11 L=160)   513    102        2 (1134/1596-1215/1663)  26.6 W07-W15 N41-N46
      3 1546 1563 (N39W42 L=191)   890    199        4 (1465/1521-1624/1614) -26.6 W35-W47 N35-N42
      4  821 1321 (N21E14 L=135)   551    145        5 ( 784/1289- 871/1373) -33.7 E17-E10 N19-N24
      5  530 1310 (N19E35 L=115)   305    101        1 ( 504/1259- 557/1349) -45.0 E37-E31 N16-N21
      6  769 1227 (N15E17 L=132)   874    347        4 ( 670/1190- 884/1284)  12.1 E23-E09 N12-N18
      7  363 1188 (N11E46 L=103)   524    157        1 ( 337/1125- 400/1255) -45.0 E49-E42 N07-N14
      8  481 1188 (N11E37 L=113)   370    137        1 ( 462/1142- 502/1235) -80.5 E38-E35 N08-N14
      9  865 1175 (N12E10 L=139)   269     43        1 ( 849/1143- 882/1207)  90.0 E11-E09 N09-N13
     10  736 1134 (N09E18 L=131)   866    285        3 ( 648/1073- 885/1201) -23.6 E24-E08 N05-N12
     11 1093  891 (S05W04 L=154)   352    107        1 (1070/ 831-1109/ 942)  90.0 W03-W05 S08-S01
     12  236  792 (S15E59 L= 91)  1274    154        3 ( 198/ 733- 274/ 841) -45.0 E63-E54 S18-S11
     13 1423  777 (S12W26 L=176)   252     54        0 (1399/ 744-1450/ 805)  63.4 W24-W28 S13-S09
     14  418  440 (S39E50 L=100)  1842    390        2 ( 351/ 386- 485/ 500)  30.1 E61-E41 S44-S33
     15 1194  382 (S40W16 L=165)  1123    310        2 (1053/ 340-1357/ 420)  14.6 W04-W28 S43-S36
  

    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