Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1770 1529 (N18W68 L=188)  1104     78        0 (1734/1491-1804/1561) -78.7 W63-W72 N14-N19
      2  510 1390 (N31E29 L= 92)  1155    223        2 ( 457/1297- 584/1478)  51.3 E32-E22 N25-N36
      3  852 1427 (N27E04 L=117)   492    156        1 ( 804/1352- 908/1475) -63.4 E06-E01 N21-N31
      4 1233 1430 (N21W20 L=141)  1296    422        2 (1043/1383-1392/1466) -20.9 W08-W30 N17-N25
      5  279 1298 (N29E50 L= 71)  1859    231        3 ( 179/1251- 400/1347) -14.5 E64-E37 N24-N33
      6  832 1190 (N13E09 L=112)   852    323        1 ( 739/1090- 886/1314)  50.7 E15-E04 N08-N20
      7 1545 1098 (S03W33 L=153)   440    149        0 (1525/1023-1560/1168)  60.3 W30-W34 S07-N00
      8  546 1117 (N14E28 L= 93)   283     56        0 ( 525/1095- 573/1154) -76.0 E28-E25 N12-N16
      9 1840 1010 (S13W56 L=177)  1099    210        3 (1800/ 930-1867/1127)  70.0 W51-W59 S17-S06
     10 1742  963 (S14W46 L=167)  1016    153        2 (1709/ 889-1786/1030)  45.0 W42-W50 S18-S11
     11 1648  988 (S11W38 L=159)   299    110        0 (1598/ 978-1712/ 999) -12.5 W34-W43 S12-S10
     12 1926  920 (S21W68 L=189)  1886    124        2 (1897/ 866-1958/ 980) -66.8 W63-W75 S23-S16
     13  455  904 (N03E37 L= 84)   418    107        1 ( 395/ 882- 511/ 922) -12.5 E41-E32 N01-N03
     14 1153  833 (S12W04 L=125)   251    106        0 (1105/ 802-1190/ 873)  26.6 W01-W07 S13-S10
     15  337  774 (S03E49 L= 72)  1026    258        4 ( 252/ 698- 404/ 839) -42.0 E55-E44 S08-N01
     16  152  777 (N00E70 L= 51)   806     79        1 ( 127/ 738- 188/ 804)  10.3 E75-E63 S02-N01
     17 1347  764 (S20W15 L=136)   249     82        0 (1313/ 746-1393/ 781)   0.0 W12-W18 S20-S18
     18  299  669 (S08E56 L= 65)  2809    354        9 ( 233/ 585- 362/ 777) -76.0 E63-E50 S13-S01
     19  454  706 (S08E41 L= 79)   304     92        0 ( 419/ 685- 474/ 749)  21.8 E44-E39 S09-S06
     20 1481  678 (S27W24 L=144)   458    104        1 (1430/ 652-1543/ 694)  -7.1 W20-W28 S28-S25
     21  375  399 (S26E66 L= 55)  1117    104        1 ( 344/ 356- 401/ 454)  15.9 E78-E57 S28-S22
     22 1270  262 (S55W03 L=124)  1332    226        1 (1168/ 214-1369/ 307)   8.1 E08-W14 S57-S52
     23  871  252 (S46E32 L= 89)   382     65        0 ( 836/ 238- 915/ 263)  -8.1 E34-E27 S46-S44
  

    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