Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1151 1863 (N52E26 L=219)   428     35        0 (1126/1847-1178/1877)  78.7 E28-E24 N49-N55
      2 1317 1777 (N51E07 L=238)   699     92        1 (1273/1754-1363/1802)  14.0 E11-E02 N49-N53
      3  414 1620 (N13E61 L=184)   723     76        1 ( 380/1587- 450/1650)  68.2 E63-E58 N10-N15
      4  288 1425 (S01E61 L=184)   541     89        1 ( 256/1385- 314/1455) -14.0 E65-E56 S03-N00
      5 1689 1430 (N39W34 L=279)   485     51        0 (1658/1403-1712/1454)  -9.5 W30-W36 N37-N40
      6  239 1312 (S09E62 L=183)   381     41        0 ( 223/1287- 255/1340) -71.6 E63-E59 S09-S06
      7  317 1226 (S12E51 L=194)   446    106        0 ( 269/1189- 359/1250)  -6.3 E55-E46 S13-S10
      8  676 1161 (S08E23 L=222)   658    253        0 ( 638/1069- 774/1220)  63.4 E24-E18 S13-S03
      9 1360 1171 (N11W14 L=260)   487    120        1 (1303/1127-1405/1214)  -8.1 W10-W17 N09-N12
     10  153 1163 (S18E68 L=177)  1517    122        2 (  97/1127- 215/1190)  11.9 E80-E60 S20-S16
     11 1019 1082 (S03E02 L=243)   210     37        0 ( 994/1063-1036/1108)  71.6 E02-W00 S04-S01
     12  476  947 (S24E32 L=213)   776    203        1 ( 427/ 867- 555/1017)  65.6 E35-E26 S29-S18
     13 1283  767 (S13W22 L=267)   291    114        0 (1227/ 746-1341/ 783)  38.7 W19-W24 S15-S10
     14 1411  653 (S15W34 L=279)   281     63        0 (1385/ 627-1429/ 687) -76.0 W32-W35 S16-S12
     15  546  534 (S49E20 L=225)  1184    248        2 ( 428/ 506- 652/ 593)   5.0 E32-E09 S51-S45
     16 1668  567 (S11W56 L=301)   316     59        1 (1637/ 542-1689/ 588)  -9.5 W52-W58 S12-S09
     17 1237  512 (S28W30 L=275)   492    119        0 (1185/ 492-1296/ 539)  23.2 W25-W32 S29-S25
     18 1593  413 (S21W61 L=306)   458     83        0 (1565/ 374-1619/ 442) -68.2 W59-W62 S23-S18
     19 1473  401 (S26W52 L=297)   449     43        1 (1451/ 373-1496/ 424) -21.8 W49-W55 S27-S24
     20 1102  259 (S48W40 L=285)   923    170        0 (1030/ 216-1166/ 308)   0.0 W30-W49 S49-S46
  

    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