Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  756 1791 (N44E44 L=209)   585     93        0 ( 734/1751- 788/1832) -26.6 E49-E37 N41-N47
      2 1351 1782 (N59W13 L=266)   431     46        0 (1319/1767-1380/1794)   8.1 W09-W16 N57-N61
      3 1650 1516 (N42W42 L=295)   428     83        1 (1610/1495-1688/1534)   0.0 W37-W46 N40-N43
      4  838 1299 (N12E16 L=237)   234     76        2 ( 815/1270- 873/1325)  63.4 E17-E13 N10-N14
      5  889 1252 (N10E12 L=241)  1107    279        7 ( 804/1179- 973/1323)  45.0 E17-E07 N06-N15
      6  636 1252 (N06E28 L=225)   403    130        0 ( 619/1193- 649/1313) -60.3 E30-E25 N02-N09
      7  978 1259 (N12E07 L=246)   243     90        1 ( 925/1242-1020/1274)  21.8 E09-E04 N11-N13
      8 1111 1115 (N06W04 L=256)   270    150        0 (1076/1058-1161/1142)  51.3 W01-W06 N02-N07
      9  875  880 (S12E07 L=246)  1124    380        2 ( 806/ 738- 970/1045)  79.2 E09-E03 S21-N00
     10  138  952 (S20E70 L=183)   884    109        0 (  98/ 908- 157/ 992)  23.2 E82-E66 S22-S16
     11  463  794 (S24E34 L=219)   430     93        0 ( 429/ 757- 488/ 835)  59.0 E36-E31 S26-S21
     12 1334  705 (S14W25 L=277)   469    146        0 (1268/ 665-1395/ 740) -12.5 W20-W29 S15-S13
     13 1091  648 (S22W11 L=264)   474    134        0 (1028/ 620-1153/ 678)  35.5 W07-W14 S24-S19
     14 1146  485 (S32W19 L=272)   302     89        0 (1108/ 470-1191/ 500)  31.0 W16-W21 S33-S29
     15  445  395 (S55E45 L=207)  1845    217        1 ( 374/ 336- 526/ 459) -21.8 E56-E34 S59-S49
  

    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