Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1254 1626 (N34W35 L=181)   350     74        1 (1227/1589-1283/1649)  15.9 W31-W38 N32-N35
      2 1439 1625 (N28W48 L=193)  1213    222        2 (1337/1605-1552/1641) -29.7 W40-W55 N23-N31
      3 1677 1496 (N13W58 L=204)  1336    209        3 (1606/1425-1745/1575) -76.0 W55-W61 N07-N19
      4 1160 1404 (N24W19 L=164)   786    262        1 (1039/1371-1264/1450) -33.7 W11-W24 N20-N29
      5 1825 1266 (S03W61 L=206)   596     33        1 (1802/1238-1850/1293)  71.6 W57-W63 S04-S01
      6 1850 1087 (S14W57 L=202)  2521    328        9 (1765/ 977-1901/1224)  20.9 W46-W68 S19-S07
      7 1792 1128 (S09W52 L=197)   977    148        5 (1746/1081-1846/1180) -45.0 W48-W56 S13-S05
      8  651 1084 (N19E20 L=125)  1250    359        0 ( 513/1016- 810/1165) -43.2 E28-E12 N11-N26
      9  340 1052 (N24E44 L=101)   564    191        2 ( 307/ 972- 372/1150) -79.7 E46-E42 N19-N30
     10 1904  984 (S22W62 L=208)  1090    151        3 (1854/ 944-1941/1025)  -8.1 W55-W69 S24-S19
     11  189  924 (N19E63 L= 83)   532    108        3 ( 162/ 882- 217/ 972) -51.3 E65-E59 N16-N21
     12 1045  891 (S01E02 L=143)   377    110        1 (1015/ 843-1080/ 930)  26.6 E04-W00 S03-N01
     13  647  865 (N07E26 L=120)   264     72        1 ( 610/ 839- 671/ 887)  11.3 E28-E23 N05-N08
     14 1476  693 (S24W18 L=164)  1869    392        7 (1370/ 538-1571/ 843)  32.3 W08-W27 S32-S16
     15 1775  782 (S29W44 L=190)   904    141        2 (1724/ 728-1809/ 837)  16.7 W38-W48 S32-S25
     16  374  681 (N02E50 L= 95)   560    176        0 ( 356/ 602- 403/ 755)  58.0 E52-E46 S03-N05
     17  792  618 (S10E24 L=121)   806    327        4 ( 765/ 460- 832/ 750)  50.9 E30-E17 S19-S03
     18  984  580 (S17E14 L=131)   792    179        3 ( 945/ 493-1034/ 653)  80.5 E16-E11 S23-S11
     19 1554  552 (S37W22 L=167)   267     47        2 (1529/ 523-1577/ 579)  56.3 W19-W23 S38-S34
     20  632  463 (S16E40 L=105)   479    103        2 ( 606/ 417- 656/ 499)  63.4 E42-E37 S19-S13
     21  718  415 (S21E37 L=109)   334     88        0 ( 706/ 375- 736/ 459)  63.4 E38-E33 S24-S18
     22  875  231 (S38E39 L=107)  1962    272        7 ( 789/ 171- 953/ 336)  17.7 E50-E25 S42-S32
     23 1324  249 (S54E05 L=140)   677    146        2 (1247/ 215-1390/ 272) -13.0 E12-W01 S56-S51
  

    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