Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1075 1770 (N45E07 L=258)  1465    255        1 ( 936/1728-1183/1810)  -5.4 E19-W02 N43-N47
      2 1554 1627 (N41W35 L=301)   481     80        0 (1510/1602-1592/1647)  -8.1 W31-W39 N39-N42
      3  815 1471 (N20E18 L=247)   946    239        0 ( 734/1382- 903/1544) -32.7 E25-E11 N14-N24
      4  247 1498 (N18E69 L=196)  1050     89        0 ( 225/1467- 278/1542) -22.6 E75-E62 N16-N21
      5 1359 1502 (N28W17 L=282)   290     68        0 (1317/1480-1387/1523)   0.0 W14-W19 N26-N29
      6 1283 1461 (N24W12 L=277)   330     84        0 (1247/1432-1323/1492) -21.8 W09-W14 N22-N26
      7 1508 1429 (N25W28 L=293)   387     44        0 (1484/1400-1536/1459) -45.0 W26-W30 N23-N27
      8 1576 1343 (N21W33 L=298)  1019    248        0 (1537/1226-1615/1454)  76.0 W30-W36 N12-N28
      9 1692 1368 (N24W43 L=308)   296     72        0 (1669/1342-1727/1384)  26.6 W40-W46 N22-N25
     10 1705 1221 (N15W43 L=308)   727    195        0 (1659/1139-1749/1306) -52.1 W39-W47 N10-N19
     11 1193  852 (S14W12 L=277)   244     56        0 (1179/ 818-1213/ 887) -63.4 W11-W13 S15-S11
     12  236  741 (S29E60 L=205)  1055    144        1 ( 212/ 675- 275/ 805)  33.7 E65-E53 S32-S24
     13 1780  691 (S15W60 L=325)  2429    127        4 (1723/ 629-1837/ 756)  63.4 W54-W69 S18-S10
     14 1707  726 (S14W51 L=316)   337     54        1 (1685/ 705-1727/ 745) -11.3 W48-W53 S15-S12
     15  997  631 (S30W03 L=268)  1321    343        3 ( 876/ 517-1124/ 733)  50.9 E04-W09 S38-S21
  

    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