Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1206 1693 (N39E10 L=341)  1037    203        2 (1169/1607-1229/1759) -54.0 E15-E06 N32-N44
      2  763 1693 (N25E38 L=314)   483    109        0 ( 741/1647- 788/1742) -54.5 E40-E34 N22-N29
      3 1307 1431 (N24W05 L=356)   224     94        0 (1264/1403-1341/1463)  -9.5 W01-W07 N23-N24
      4 1528 1367 (N27W21 L= 12)   366    100        0 (1509/1317-1546/1418) -56.3 W18-W22 N24-N30
      5 1618 1319 (N28W28 L= 20)   251     58        0 (1606/1284-1629/1352) -53.1 W26-W29 N25-N29
      6 1256 1272 (N13W06 L=357)   324     95        3 (1226/1251-1297/1308) -11.3 W03-W08 N11-N14
      7  183 1232 (S14E66 L=286)  2590    208        7 ( 124/1153- 241/1303)  42.3 E73-E60 S19-S09
      8  333 1230 (S12E49 L=302)   604    154        0 ( 302/1181- 383/1303) -33.7 E53-E44 S13-S07
      9 1117 1188 (N05W01 L=352)   532    195        0 (1019/1175-1209/1205)  29.1 E04-W05 N01-N07
     10  285 1133 (S18E51 L=300)   648     88        2 ( 248/1098- 317/1162) -23.2 E54-E47 S19-S16
     11 1594 1127 (N15W30 L= 22)   247     99        0 (1554/1106-1634/1159)   8.1 W26-W33 N14-N16
     12  700  999 (S16E18 L=334)   629    168        2 ( 633/ 941- 766/1036)  45.0 E20-E13 S21-S13
     13 1652  980 (N09W38 L= 29)   278     71        0 (1632/ 943-1680/1012)  68.2 W36-W39 N06-N11
     14 1623  872 (N03W39 L= 31)   241     79        0 (1591/ 847-1661/ 892)   0.0 W36-W42 N01-N03
     15  202  688 (S47E65 L=286)   578     61        0 ( 164/ 670- 233/ 706)  -4.1 E73-E59 S48-S46
     16  993  649 (S28W09 L=  1)   201     40        1 ( 975/ 622-1012/ 674) -33.7 W07-W10 S29-S26
     17 1771  633 (S04W62 L= 53)   590     57        1 (1742/ 601-1800/ 665)  78.7 W59-W64 S06-S01
     18 1233  584 (S24W26 L= 17)   626    235        2 (1145/ 545-1335/ 637)   7.6 W18-W33 S26-S22
     19 1481  506 (S21W45 L= 37)   294     73        0 (1442/ 492-1517/ 523)  18.4 W42-W48 S22-S19
     20 1700  496 (S13W64 L= 56)   397     46        0 (1679/ 475-1717/ 523)  90.0 W62-W66 S14-S11
     21 1641  438 (S18W63 L= 55)   405      7        0 (1623/ 421-1663/ 457)  11.3 W60-W66 S19-S17
  

    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