Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  539 1661 (N24E54 L=327)   988    148        2 ( 470/1631- 602/1688)   8.7 E59-E46 N21-N26
      2  398 1491 (N11E55 L=326)   847    180        2 ( 353/1428- 433/1548) -35.0 E59-E48 N07-N14
      3 1284 1382 (N24W07 L= 28)   300     88        0 (1239/1360-1326/1400)   0.0 W04-W10 N23-N25
      4 1848  960 (N14W60 L= 81)   929    148        3 (1806/ 887-1877/1016) -40.6 W54-W64 N09-N16
      5 1127  591 (S26W18 L= 38)   216     58        0 (1096/ 577-1163/ 606)  14.0 W15-W19 S26-S24
      6 1142  441 (S35W25 L= 46)   708    121        2 (1081/ 408-1196/ 484)  -5.2 W19-W30 S36-S32
      7 1557  429 (S24W57 L= 77)   511     59        0 (1520/ 409-1592/ 445)   7.1 W52-W60 S24-S22
      8 1251  254 (S44W48 L= 69)   536     91        0 (1219/ 237-1293/ 280)  18.4 W43-W52 S46-S42
  

    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