Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  864 1820 (N53E34 L=223)   380     35        0 ( 840/1803- 895/1833)  26.6 E37-E31 N50-N54
      2  755 1582 (N31E29 L=229)   267     37        0 ( 738/1558- 771/1604)  90.0 E29-E27 N29-N33
      3  529 1362 (N14E38 L=220)  1375    436        2 ( 427/1246- 626/1511) -30.6 E50-E28 N07-N21
      4  670 1431 (N20E30 L=228)   727     91        3 ( 635/1383- 708/1483) -81.9 E31-E27 N16-N23
      5 1352 1233 (N17W18 L=275)   283     99        0 (1300/1191-1387/1262) -26.6 W14-W20 N15-N18
      6 1080 1216 (N13W01 L=258)   538    193        2 ( 976/1193-1165/1250)   4.8 E06-W06 N11-N14
      7 1182  965 (S01W10 L=268)  1168    318        1 (1115/ 837-1284/1102) -60.3 W05-W18 S07-N07
      8  281 1004 (S11E51 L=206)   774    141        1 ( 265/ 930- 298/1074) -69.4 E52-E49 S15-S07
      9  633  918 (S12E23 L=235)   494    104        1 ( 584/ 899- 693/ 935)   7.1 E26-E18 S12-S10
     10  209  890 (S20E58 L=199)   408     95        0 ( 184/ 855- 239/ 925) -33.7 E61-E54 S21-S17
     11  917  857 (S11E04 L=254)   486    195        0 ( 878/ 775-1001/ 909)  60.9 E06-W00 S16-S07
     12 1262  707 (S16W20 L=277)  1073    261        2 (1188/ 588-1335/ 815)  79.4 W16-W22 S24-S08
     13 1080  531 (S30W12 L=269)   534    104        3 (1024/ 505-1155/ 558)  32.0 W07-W16 S32-S27
  

    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