Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  545 1705 (N46E49 L=128)  3544    463        7 ( 436/1631- 691/1759)  19.3 E57-E34 N39-N50
      2 1148 1641 (N45W08 L=184)   253     57        1 (1131/1610-1166/1666)  63.4 W06-W09 N42-N46
      3  861 1630 (N42E16 L=160)   393     71        0 ( 831/1602- 888/1660)  53.1 E18-E14 N40-N44
      4 1264 1545 (N38W17 L=193)   283     37        0 (1239/1528-1294/1563) -26.6 W14-W18 N36-N38
      5  441 1386 (N23E43 L=133)   775    214        3 ( 404/1326- 484/1493) -45.0 E49-E38 N19-N29
      6  259 1374 (N21E61 L=115)   501     92        1 ( 240/1336- 275/1420)  90.0 E62-E59 N18-N23
      7  400 1249 (N14E44 L=132)  1038    243        6 ( 354/1187- 464/1293)  29.7 E48-E39 N10-N16
      8  212 1163 (N07E62 L=115)   408    117        0 ( 196/1124- 229/1214) -45.0 E64-E59 N04-N10
      9  379 1163 (N08E45 L=132)   728    265        1 ( 308/1130- 470/1210) -12.1 E51-E37 N06-N10
     10  647  934 (S04E23 L=153)   203     92        0 ( 631/ 889- 667/ 979)  68.2 E24-E22 S06-S01
     11 1879  851 (S07W68 L=245)   771    119        3 (1856/ 809-1896/ 889) -51.3 W64-W71 S09-S04
     12  387  813 (S13E43 L=133)  1759    355        4 ( 297/ 737- 453/ 887) -30.3 E51-E38 S17-S08
     13 1448  583 (S24W31 L=208)   280     73        0 (1414/ 569-1481/ 599) -11.3 W28-W33 S25-S23
     14 1256  429 (S36W20 L=197)   904    153        1 (1195/ 406-1334/ 465)  -4.8 W14-W26 S37-S33
     15  899  410 (S39E07 L=169)  1034    252        4 ( 789/ 376-1016/ 437)  13.2 E16-W01 S42-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