Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1392 1560 (N30W28 L=125)  2102    553        4 (1169/1469-1637/1679) -23.6 W13-W45 N23-N38
      2  459 1514 (N30E40 L= 57)   801    131        1 ( 408/1451- 502/1566) -41.6 E46-E35 N25-N33
      3 1209 1449 (N23W13 L=110)   467    133        2 (1187/1388-1228/1513)  76.0 W11-W14 N18-N26
      4 1089 1463 (N24W05 L=103)   316    102        1 (1041/1442-1137/1481)   9.5 W02-W08 N22-N24
      5 1677 1332 (N15W45 L=142)   289     68        3 (1652/1303-1698/1366)  53.1 W43-W47 N12-N16
      6 1865 1294 (N13W64 L=161)   525     45        0 (1844/1266-1884/1322) -56.3 W61-W66 N10-N14
      7 1316 1239 (N09W18 L=115)   186    111        0 (1303/1190-1328/1294)  71.6 W17-W19 N06-N12
      8  191  760 (S15E64 L= 33)  4637    579        8 ( 118/ 498- 252/1030)  79.4 E77-E60 S31-N01
      9  755  958 (S06E16 L= 81)   272     68        2 ( 723/ 928- 781/ 991)  45.0 E18-E14 S07-S04
     10 1875  866 (S13W63 L=160)  4074    339       11 (1773/ 729-1957/ 990)  36.9 W54-W74 S21-S05
     11  810  921 (S08E13 L= 84)   398     79        2 ( 780/ 879- 834/ 955) -63.4 E14-E11 S10-S06
     12 1838  890 (S12W58 L=155)   372     88        1 (1818/ 858-1856/ 934)  78.7 W55-W60 S13-S08
     13  308  835 (S11E49 L= 48)   897    123        3 ( 260/ 792- 372/ 873)  10.3 E54-E43 S13-S09
     14  601  778 (S16E28 L= 70)   287     94        0 ( 578/ 734- 630/ 819) -68.2 E28-E26 S18-S13
     15 1894  772 (S18W69 L=166)   645     82        0 (1880/ 728-1907/ 814) -71.6 W66-W70 S21-S15
     16  882  744 (S19E10 L= 88)   217     74        0 ( 848/ 719- 914/ 770)  36.9 E11-E07 S20-S17
     17  480  664 (S22E39 L= 59)  1552    400        3 ( 345/ 627- 635/ 736)   0.0 E49-E26 S24-S17
     18 1225  555 (S32W13 L=110)   229     78        0 (1186/ 542-1268/ 569)  -9.5 W09-W15 S33-S31
     19  861  393 (S43E16 L= 82)   676    163        2 ( 790/ 353- 936/ 439)  23.2 E22-E08 S45-S39
     20  686  298 (S49E36 L= 61)   310     54        1 ( 660/ 278- 721/ 311)   0.0 E38-E31 S51-S48
     21 1224  203 (S61W20 L=118)  1091    153        4 (1156/ 173-1294/ 230)  -6.0 W10-W29 S64-S58
  

    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