Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  421 1572 (N14E57 L=279)   507    144        4 ( 396/1535- 439/1610) -45.0 E59-E54 N12-N16
      2  244 1455 (N04E71 L=265)  1414    240        2 ( 186/1411- 279/1516)  41.6 E80-E66 N00-N08
      3  201 1175 (S13E62 L=274)   447     49        1 ( 186/1146- 220/1203) -63.4 E63-E59 S15-S11
      4 1717 1121 (N20W42 L= 18)   310     96        0 (1699/1074-1736/1172) -45.0 W39-W44 N17-N22
      5  196  908 (S30E57 L=279)   497     63        1 ( 178/ 885- 223/ 934)  63.4 E58-E53 S31-S27
      6  514  890 (S23E28 L=307)   240     75        0 ( 477/ 863- 546/ 917) -18.4 E31-E25 S24-S22
      7 1819  815 (N06W60 L= 36)   612    108        0 (1785/ 762-1846/ 866)  76.0 W58-W61 N01-N09
      8 1310  605 (S20W29 L=  5)   222     96        0 (1275/ 574-1334/ 654)  90.0 W27-W29 S22-S16
      9 1572  622 (S12W46 L= 22)   329     91        1 (1530/ 588-1613/ 648)  51.3 W44-W48 S14-S09
     10 1601  559 (S14W51 L= 27)   662    173        0 (1520/ 518-1669/ 609)  48.4 W46-W54 S18-S09
     11 1706  506 (S14W64 L= 40)   866    155        1 (1647/ 471-1743/ 544)  29.1 W57-W67 S15-S10
     12 1131  381 (S39W28 L=  4)   843    229        2 (1103/ 311-1163/ 478) -37.6 W22-W35 S43-S32
     13 1296  310 (S38W44 L= 20)  1006    150        2 (1247/ 286-1350/ 345)   0.0 W38-W48 S40-S35
  

    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