Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1566 1649 (N30W53 L= 92)  1057    153        3 (1536/1576-1596/1724)  54.0 W49-W58 N24-N35
      2 1312 1598 (N31W29 L= 69)   529    109        0 (1249/1579-1367/1612) -14.0 W25-W33 N28-N32
      3 1695 1533 (N21W58 L= 97)   352     51        2 (1667/1518-1728/1548)  -8.1 W54-W61 N19-N21
      4 1361 1344 (N14W25 L= 64)   203     92        0 (1320/1324-1404/1366) -26.6 W22-W27 N12-N15
      5  755 1221 (N15E13 L= 26)   205     86        0 ( 727/1189- 784/1265) -59.0 E14-E11 N13-N18
      6 1306 1044 (S03W17 L= 56)   445    140        0 (1279/ 979-1348/1107)  45.0 W14-W20 S06-N00
      7  924  707 (S17E11 L= 29)  3446    912       12 ( 733/ 357-1029/1048)  76.9 E23-E06 S39-N04
      8 1648 1003 (S10W39 L= 78)   634    176        1 (1590/ 979-1726/1047)  -5.2 W34-W45 S11-S06
      9 1481  930 (S12W26 L= 66)   449    158        0 (1462/ 860-1500/1003)  76.0 W24-W27 S15-S07
     10  674  767 (S10E25 L= 15)   202     56        2 ( 647/ 751- 704/ 779) -33.7 E26-E22 S11-S09
     11  355  677 (S11E50 L=349)   470    108        1 ( 322/ 644- 383/ 729) -90.0 E52-E48 S13-S07
     12 1380  664 (S26W18 L= 57)  1122    274        2 (1254/ 617-1492/ 729)   6.7 W08-W25 S28-S23
     13  461  668 (S13E42 L=358)   312     82        1 ( 437/ 632- 478/ 702)  63.4 E43-E40 S15-S11
     14  409  476 (S24E55 L=345)  2124    262        3 ( 312/ 415- 505/ 562)  11.3 E72-E42 S26-S19
     15  714  295 (S41E40 L=359)   428     63        0 ( 687/ 276- 745/ 318)   8.1 E43-E36 S42-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