Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  615 1673 (N20E47 L=279)   987    349        1 ( 571/1536- 677/1790) -68.2 E51-E41 N10-N30
      2 1365 1698 (N46W00 L=326)   337    112        0 (1314/1653-1401/1732) -20.6 E04-W04 N43-N47
      3 1323 1522 (N31W03 L=329)   411     92        1 (1276/1494-1370/1542)   9.5 W00-W06 N28-N32
      4 1722 1485 (N45W37 L=  2)   505    128        0 (1703/1448-1741/1529)  69.4 W34-W39 N40-N48
      5  537 1396 (N02E39 L=286)   451    112        3 ( 517/1342- 562/1442) -38.7 E42-E36 N00-N04
      6 1596 1336 (N28W26 L=352)   251     77        0 (1583/1298-1610/1377) -53.1 W24-W27 N26-N30
      7  283 1199 (S15E53 L=272)  1782    430        3 ( 157/1167- 402/1219)   9.5 E66-E42 S17-S11
      8 1842  976 (N16W55 L= 20)   535    105        1 (1821/ 921-1856/1015) -51.3 W51-W57 N12-N18
      9 1783  823 (N06W54 L= 20)   885    240        0 (1729/ 784-1846/ 882)   0.0 W47-W62 N04-N07
     10 1426  640 (S15W35 L=  1)   423    182        1 (1366/ 587-1474/ 707) -15.3 W29-W40 S17-S13
     11 1527  668 (S11W41 L=  6)   287     89        1 (1497/ 631-1557/ 690)  78.7 W38-W42 S13-S08
     12 1018  553 (S33W15 L=340)  1050    195        3 ( 879/ 515-1134/ 616)  42.7 W06-W20 S38-S26
     13 1604  572 (S13W51 L= 16)   349     95        0 (1562/ 553-1647/ 598)  38.7 W47-W53 S15-S10
     14 1455  400 (S27W50 L= 15)  1674    338        2 (1347/ 330-1546/ 453)   2.7 W39-W60 S28-S25
  

    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