Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  475 1603 (N28E46 L=135)   477    109        1 ( 423/1576- 512/1631)  38.7 E49-E42 N25-N29
      2 1342 1484 (N26W17 L=199)   878    237        1 (1242/1403-1422/1544) -30.3 W10-W22 N21-N29
      3  507 1495 (N20E39 L=143)   304     55        1 ( 478/1476- 538/1517) -11.3 E41-E36 N19-N21
      4  864 1384 (N15E13 L=169)   676    203        3 ( 793/1340- 920/1445)  -7.1 E17-E09 N12-N19
      5  628 1315 (N10E27 L=155)  1081    345        2 ( 507/1197- 726/1422) -35.2 E36-E19 N03-N15
      6 1865 1080 (N07W59 L=241)  3023    469        5 (1768/ 953-1943/1243) -45.0 W49-W71 N00-N15
      7  383  994 (S10E42 L=140)   674    217        6 ( 361/ 893- 407/1100)  85.2 E43-E39 S16-S04
      8  260 1010 (S10E52 L=129)   370    164        0 ( 232/ 976- 286/1055) -76.0 E55-E49 S11-S07
      9  452  996 (S10E36 L=146)   527    120        2 ( 416/ 948- 496/1044)  45.0 E38-E33 S12-S07
     10  818  862 (S16E11 L=170)  1485    561        5 ( 635/ 782-1019/ 921)  14.6 E23-W00 S21-S12
     11  429  825 (S20E38 L=143)   548    108        0 ( 387/ 794- 459/ 877)  38.7 E41-E35 S22-S17
     12 1655  775 (S13W44 L=226)   287     84        0 (1640/ 738-1669/ 818) -76.0 W42-W45 S15-S11
     13  439  683 (S29E39 L=142)   287     64        0 ( 421/ 650- 456/ 720)  51.3 E41-E37 S31-S26
     14 1589  436 (S35W53 L=235)   762    145        1 (1541/ 377-1620/ 481) -24.8 W46-W59 S38-S32
     15 1129  424 (S42W15 L=196)   409    120        0 (1087/ 386-1192/ 465) -21.8 W10-W20 S43-S39
  

    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