Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1168 1751 (N45W41 L= 77)   804     82        2 (1135/1716-1211/1774) -68.2 W35-W45 N42-N47
      2 1686 1519 (N14W62 L= 99)   679    126        0 (1626/1502-1734/1538) -13.0 W55-W69 N11-N15
      3 1088 1347 (N23W13 L= 49)   302     77        1 (1057/1322-1117/1378)  11.3 W10-W15 N21-N25
      4 1758 1298 (N00W56 L= 92)   702    114        1 (1731/1231-1781/1349)  71.6 W54-W58 S03-N03
      5  877 1313 (N27E01 L= 35)   197     43        0 ( 863/1280- 891/1339)  71.6 E01-W00 N25-N28
      6  824 1144 (N19E08 L= 28)   716    193        1 ( 754/1075- 884/1213)  20.0 E14-E03 N16-N21
      7  266 1037 (N25E53 L=343)  1862    247        7 ( 229/ 942- 328/1149) -77.0 E57-E47 N19-N32
      8 1167 1117 (N08W10 L= 47)   222     56        0 (1148/1095-1188/1138)  18.4 W09-W12 N07-N09
      9  457 1060 (N22E35 L=  1)   657    190        1 ( 368/1007- 516/1092) -32.5 E42-E31 N18-N25
     10 1857  937 (S24W56 L= 93)   726    118        0 (1821/ 890-1878/ 989)  20.6 W51-W59 S25-S21
     11  412  871 (N12E42 L=354)   281     42        0 ( 392/ 853- 432/ 893) -45.0 E43-E40 N11-N13
     12 1530  840 (S18W25 L= 61)  1192    359        2 (1366/ 817-1697/ 872) -20.6 W14-W38 S22-S12
     13  312  784 (N09E53 L=343)   540    128        0 ( 279/ 735- 349/ 844) -69.4 E55-E51 N05-N13
     14 1826  761 (S34W52 L= 88)   614     83        1 (1788/ 743-1873/ 777) -23.2 W46-W60 S37-S31
     15 1091  731 (S11E04 L= 32)   311    126        0 (1046/ 689-1126/ 776)  23.2 E07-W00 S12-S09
     16  680  544 (S12E34 L=  2)  1031    386        0 ( 618/ 409- 748/ 712)  38.7 E44-E23 S19-S03
     17  478  347 (S21E63 L=333)  1300    137        3 ( 439/ 300- 512/ 396)  45.0 E69-E56 S25-S17
     18  561  332 (S24E56 L=340)   528     77        0 ( 523/ 313- 586/ 359)   0.0 E59-E51 S25-S22
     19  757  306 (S30E42 L=354)   655    109        0 ( 726/ 254- 798/ 345)  22.6 E48-E36 S33-S27
  

    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