Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1304 1655 (N39W00 L=271)  1469    286        3 (1246/1543-1377/1748) -45.0 E05-W08 N32-N45
      2  959 1608 (N25E20 L=251)   445    105        0 ( 939/1557- 975/1656) -50.2 E22-E17 N22-N28
      3  736 1450 (N10E27 L=243)  1800    466        0 ( 665/1306- 869/1627) -34.3 E38-E15 N03-N20
      4  262 1445 (N02E65 L=205)  1322    246        3 ( 221/1371- 299/1489) -33.7 E73-E60 S02-N04
      5 1303 1424 (N23W06 L=277)   306     60        0 (1285/1385-1316/1460) -68.2 W04-W07 N20-N25
      6 1290 1167 (N07W11 L=282)   955    505        2 (1261/1025-1320/1296) -57.3 W07-W16 N00-N14
      7  148 1126 (S18E66 L=205)  5436    650        9 (  94/1023- 207/1226) -67.4 E74-E59 S24-S12
      8 1923  974 (N16W65 L=336)   648     91        0 (1911/ 932-1934/1020) -51.3 W62-W67 N13-N18
      9  461  927 (S25E33 L=237)   887    291        0 ( 342/ 878- 568/ 982)  32.0 E42-E26 S30-S19
     10 1377  906 (S05W23 L=294)   233     44        1 (1356/ 876-1393/ 930) -56.3 W21-W24 S06-S03
     11  185  814 (S37E58 L=213)  1586    375        5 ( 128/ 757- 264/ 860)  26.6 E63-E49 S40-S33
     12 1472  610 (S18W39 L=310)   237     46        0 (1442/ 598-1503/ 622)  26.6 W37-W41 S19-S16
     13 1558  496 (S21W51 L=321)   986    133        2 (1503/ 439-1608/ 567) -77.5 W48-W52 S25-S16
  

    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