Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1286 1777 (N41W52 L=352)   693    131        1 (1232/1743-1345/1813)  -3.6 W44-W60 N39-N42
      2 1598 1644 (N22W64 L=  4)   441     91        0 (1554/1612-1638/1662) -45.0 W60-W66 N19-N24
      3  823 1469 (N38W01 L=301)   263     76        0 ( 787/1440- 849/1489) -76.0 E01-W02 N35-N39
      4  895 1463 (N35W05 L=306)   392     82        3 ( 857/1439- 936/1484)  -9.5 W02-W08 N33-N36
      5 1541 1428 (N13W44 L=344)   428    138        3 (1489/1379-1588/1471) -69.4 W42-W45 N09-N17
      6 1121 1386 (N24W16 L=317)   275    108        1 (1079/1360-1172/1407) -45.0 W13-W19 N21-N26
      7 1575 1303 (N06W41 L=341)   406     79        0 (1544/1258-1597/1339)  26.6 W37-W43 N04-N07
      8 1225 1260 (N14W18 L=318)   312     77        2 (1191/1229-1266/1282) -53.1 W16-W19 N11-N15
      9 1884 1144 (S13W64 L=  5)  2012    246        1 (1845/1035-1910/1260)  33.7 W56-W73 S17-S07
     10  128 1159 (N34E75 L=226)   887     64        2 ( 101/1139- 157/1189)  -9.5 E86-E67 N32-N36
     11  382 1119 (N27E40 L=260)   367    133        0 ( 338/1074- 408/1177)  35.5 E44-E37 N25-N30
     12  963 1135 (N14E01 L=300)   188     21        1 ( 940/1119- 988/1153) -18.4 E02-W01 N13-N15
     13 1009 1102 (N11W01 L=302)   183     79        1 ( 987/1063-1031/1130)  76.0 W00-W02 N08-N12
     14  598 1055 (N19E25 L=276)   287     93        0 ( 570/1010- 632/1086) -71.6 E25-E23 N15-N21
     15 1757  907 (S22W44 L=344)   348    125        0 (1711/ 882-1797/ 949)   0.0 W39-W48 S23-S20
     16 1890  863 (S30W61 L=  1)  1389    103        3 (1846/ 835-1932/ 899)  -3.8 W53-W70 S32-S27
     17  765  589 (S12E27 L=273)  1040    376        2 ( 620/ 513- 897/ 636) -42.7 E34-E20 S18-S06
     18 1209  502 (S29E04 L=296)   883    250        1 (1131/ 432-1268/ 606)  28.3 E11-W02 S31-S24
     19 1585  520 (S42W24 L=325)   893    135        2 (1532/ 471-1622/ 572)  35.5 W18-W28 S44-S37
     20  969  189 (S46E38 L=262)  1381    185        4 ( 881/ 152-1034/ 241)   0.0 E49-E28 S48-S42
  

    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