Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  959 1790 (N52E23 L=222)   474     92        0 ( 910/1776-1009/1803)  12.5 E27-E18 N50-N53
      2  326 1505 (N20E61 L=184)  1176    222        5 ( 291/1458- 365/1561) -40.6 E65-E55 N17-N23
      3  429 1374 (N13E46 L=199)   311    125        0 ( 389/1337- 463/1403) -20.6 E50-E42 N11-N14
      4 1613 1248 (N22W37 L=282)   262     64        1 (1596/1210-1625/1283)  78.7 W35-W37 N19-N24
      5  206 1214 (N01E64 L=181)   499     80        2 ( 188/1186- 223/1239) -21.8 E66-E61 N00-N02
      6  373 1182 (N01E46 L=199)   294     64        0 ( 343/1169- 403/1198)  11.3 E48-E43 N00-N02
      7 1327 1175 (N13W17 L=262)   256     81        0 (1287/1162-1365/1189)  11.3 W14-W19 N12-N14
      8 1376  962 (N01W22 L=267)  1404    282        2 (1338/ 857-1426/1105) -65.2 W20-W27 S04-N10
      9  336  855 (S19E45 L=200)   559    160        1 ( 292/ 815- 402/ 908) -16.7 E49-E39 S21-S16
     10 1065  779 (S14W06 L=251)   770    302        1 ( 960/ 677-1193/ 870)  54.5 W00-W12 S21-S07
     11 1457  684 (S14W33 L=278)  1287    252        2 (1379/ 555-1516/ 778)  78.7 W30-W35 S23-S08
     12 1760  735 (S07W57 L=302)   400     77        2 (1740/ 703-1773/ 770)  90.0 W55-W59 S09-S05
     13 1176  732 (S15W14 L=259)   380    113        2 (1133/ 710-1238/ 759)  31.0 W10-W17 S17-S12
     14 1241  492 (S30W24 L=269)   709    172        3 (1187/ 453-1322/ 530)  45.0 W20-W28 S33-S26
  

    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