Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  773 1647 (N39E29 L=124)   588     85        1 ( 747/1611- 808/1682) -33.7 E32-E25 N36-N42
      2 1406 1577 (N42W25 L=178)   853    126        1 (1356/1534-1463/1615) -32.0 W20-W29 N39-N44
      3  354 1522 (N25E62 L= 91)  1773    206        3 ( 328/1434- 386/1605) -30.1 E76-E55 N19-N30
      4 1623 1500 (N38W45 L=198)   478     90        1 (1585/1462-1653/1528) -31.0 W41-W47 N35-N40
      5  808 1396 (N22E18 L=135)   524    186        0 ( 784/1313- 844/1480)  85.2 E19-E17 N16-N28
      6  456  862 (S14E37 L=117)  2197    437        3 ( 335/ 692- 575/1003)  46.3 E49-E28 S26-S04
      7 1075  784 (S13W06 L=159)   343     87        3 (1047/ 743-1096/ 828) -68.2 W03-W07 S15-S10
      8 1811  729 (S10W64 L=217)   723    121        1 (1789/ 662-1827/ 782) -69.4 W61-W66 S14-S06
      9 1456  712 (S14W32 L=185)   511    160        0 (1386/ 687-1535/ 732)   0.0 W26-W37 S14-S12
     10 1732  670 (S14W57 L=210)   474    104        1 (1713/ 637-1784/ 707)  45.0 W54-W61 S16-S11
     11  301  651 (S30E55 L= 98)   584     81        1 ( 259/ 631- 332/ 684)  10.3 E62-E51 S32-S27
     12 1387  518 (S27W32 L=185)   581    172        0 (1319/ 470-1446/ 567)  49.4 W28-W35 S31-S23
     13 1743  505 (S25W70 L=223)   685     61        1 (1722/ 481-1773/ 533)  -8.7 W64-W77 S26-S23
     14  557  409 (S46E35 L=119)   567    109        1 ( 525/ 379- 605/ 445)  28.6 E39-E28 S49-S41
     15 1433  395 (S36W42 L=195)  1385    171        4 (1372/ 359-1495/ 438)  24.0 W36-W47 S39-S32
  

    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