Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1069 1749 (N43E06 L=109)   372     45        1 (1046/1729-1097/1771) -21.8 E08-E03 N40-N44
      2  829 1659 (N32E21 L= 94)   375     70        0 ( 805/1637- 864/1691)   0.0 E23-E18 N30-N35
      3 1247 1561 (N30W09 L=124)   589    184        1 (1203/1489-1300/1642) -55.0 W05-W12 N25-N35
      4 1043 1442 (N20E03 L=112)   425    176        0 (1027/1370-1073/1531) -68.2 E04-W00 N15-N25
      5 1380 1490 (N27W18 L=134)   358    130        0 (1312/1472-1439/1505)  12.5 W13-W22 N25-N28
      6  887 1351 (N13E12 L=104)   398    152        2 ( 841/1291- 942/1407)  63.4 E13-E08 N08-N16
      7 1757 1224 (N15W47 L=163)   723    122        3 (1731/1179-1806/1273) -33.7 W45-W52 N12-N18
      8 1694 1110 (N08W42 L=158)  1801    405        2 (1558/ 949-1770/1253) -35.8 W31-W49 N00-N14
      9 1840 1195 (N15W56 L=171)   574     73        1 (1821/1153-1865/1238) -53.1 W54-W58 N12-N17
     10 1836 1110 (N10W55 L=171)   389     57        0 (1806/1092-1861/1134)  18.4 W52-W58 N08-N11
     11  177 1027 (S11E61 L= 54)  1051    104        3 ( 125/ 989- 215/1063) -20.0 E68-E56 S13-S08
     12  237  882 (S19E55 L= 60)  4321    565        5 ( 117/ 763- 334/1063)  45.0 E71-E45 S26-S08
     13 1231 1025 (S03W12 L=128)   505    185        0 (1142/ 964-1282/1058) -12.5 W06-W15 S06-S01
     14  510  878 (S18E32 L= 84)  1094    358        2 ( 438/ 813- 585/ 964)  59.0 E37-E26 S22-S12
     15 1848  753 (S10W64 L=180)  6361    433       20 (1775/ 596-1934/ 892) -74.5 W56-W75 S19-S01
     16 1468  839 (S11W29 L=145)   488    245        1 (1404/ 750-1559/ 889)  56.3 W25-W34 S16-S07
     17 1188  846 (S14W12 L=127)   219     72        0 (1155/ 830-1233/ 867)   0.0 W09-W14 S14-S13
     18 1758  652 (S18W58 L=174)  1514    229        3 (1712/ 551-1827/ 750)  90.0 W53-W62 S23-S10
     19 1477  655 (S22W34 L=150)   670    153        0 (1450/ 592-1526/ 737) -37.9 W30-W39 S25-S17
     20 1644  679 (S18W46 L=162)   960    255        2 (1535/ 617-1745/ 732)  37.6 W39-W54 S23-S13
     21  436  551 (S40E42 L= 73)  1566    205        4 ( 339/ 522- 544/ 588)  11.8 E55-E31 S42-S37
  

    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