Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  905 1691 (N39E26 L= 59)   286     57        1 ( 888/1658- 931/1723) -51.3 E28-E23 N36-N41
      2 1255 1609 (N41W03 L= 88)   400    104        2 (1203/1591-1308/1623)  15.9 W00-W07 N39-N42
      3  512 1556 (N21E49 L= 36)  1159    254        4 ( 424/1511- 604/1601)  33.7 E54-E41 N16-N25
      4  968 1539 (N29E15 L= 69)   303    152        0 ( 917/1511-1034/1587) -10.3 E20-E09 N27-N31
      5 1615 1361 (N31W35 L=120)   279     36        0 (1591/1344-1634/1381)   0.0 W33-W37 N30-N32
      6 1346 1265 (N19W15 L=100)   295    106        0 (1307/1240-1389/1292)  -9.5 W12-W18 N18-N20
      7 1788 1041 (N15W53 L=138)   428     83        1 (1763/1001-1806/1081)  68.2 W50-W55 N12-N17
      8  181  954 (S21E64 L= 20)  2153    256        7 ( 116/ 854- 242/1061)  31.0 E82-E55 S28-S13
      9 1079 1012 (S01W03 L= 88)   607    182        4 ( 986/ 991-1152/1036)  20.6 E01-W07 S03-N01
     10  795  824 (S17E10 L= 74)   535    255        2 ( 683/ 790- 918/ 852)  25.0 E17-E02 S21-S13
     11 1406  681 (S14W31 L=116)   892    302        1 (1284/ 587-1507/ 754)  54.5 W25-W36 S22-S07
     12  430  678 (S34E37 L= 48)   817    227        3 ( 355/ 606- 525/ 739)  35.2 E46-E28 S40-S28
     13 1757  643 (S09W62 L=147)  1302    200        3 (1717/ 568-1790/ 730) -84.8 W58-W65 S14-S03
     14 1692  599 (S13W57 L=142)   493    105        1 (1668/ 545-1714/ 641) -80.5 W55-W59 S16-S10
     15 1489  493 (S24W45 L=130)   493    190        1 (1420/ 466-1532/ 567)  69.4 W40-W47 S26-S18
  

    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