Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1070 1627 (N34E00 L=259)   269     40        0 (1048/1603-1097/1644)  45.0 E01-W01 N32-N35
      2 1661 1576 (N35W48 L=307)   466     70        1 (1621/1553-1694/1596)  12.5 W43-W52 N33-N37
      3 1560 1543 (N32W37 L=296)   401     80        0 (1548/1501-1572/1591)  66.8 W34-W38 N28-N35
      4  287 1483 (N22E59 L=200)  1065     99        2 ( 257/1436- 329/1531) -66.8 E63-E54 N18-N25
      5  274 1375 (N15E56 L=204)   365     51        0 ( 245/1355- 298/1396)  31.0 E58-E53 N13-N16
      6  454 1348 (N13E39 L=220)   267     88        1 ( 420/1329- 508/1366)  26.6 E41-E35 N11-N14
      7  618 1275 (N09E26 L=233)   248     87        0 ( 583/1257- 663/1297)  11.3 E28-E23 N07-N10
      8  163  954 (S10E63 L=196)  1256    313        4 ( 135/ 787- 195/1080)  80.5 E66-E60 S20-S02
      9   94  970 (S09E74 L=185)   971     79        2 (  75/ 925- 120/1001)  21.8 E79-E69 S11-S07
     10 1531  592 (S27W39 L=298)  1681    312        3 (1439/ 476-1647/ 675)  53.1 W33-W45 S34-S21
     11  674  570 (S34E23 L=237)   874    267        0 ( 559/ 484- 757/ 614) -19.7 E31-E16 S39-S30
     12 1334  574 (S30W24 L=283)   395    126        0 (1277/ 548-1382/ 614)  39.8 W20-W26 S32-S27
     13 1660  526 (S30W53 L=313)   541    121        0 (1616/ 489-1706/ 568)  50.2 W50-W56 S32-S26
     14 1608  327 (S44W66 L=325)   958     97        1 (1567/ 299-1654/ 360)  -4.6 W57-W82 S44-S41
     15 1024  316 (S51W05 L=265)  1404    272        2 ( 870/ 294-1137/ 351)   2.3 E09-W16 S53-S48
  

    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