Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1602 1587 (N23W53 L=255)  1652    281        1 (1500/1547-1707/1647) -31.0 W47-W63 N18-N28
      2 1694 1436 (N12W54 L=255)   568     98        1 (1647/1398-1729/1460) -33.7 W50-W56 N09-N13
      3 1139 1412 (N22W15 L=216)  2260    424        8 ( 932/1375-1414/1440) -14.5 W01-W32 N15-N27
      4 1560 1314 (N08W39 L=240)   245     52        1 (1533/1292-1585/1332) -33.7 W37-W40 N06-N08
      5 1553 1250 (N04W37 L=238)   253     20        1 (1535/1228-1573/1275)  71.6 W35-W38 N02-N05
      6 1250 1250 (N10W18 L=219)   330    135        0 (1176/1211-1289/1273) -33.7 W13-W19 N07-N12
      7  140 1203 (N29E63 L=138)   557    168        0 ( 112/1185- 174/1228) -20.6 E66-E58 N27-N30
      8  692 1152 (N15E17 L=184)   644    154        0 ( 624/1081- 745/1202) -60.9 E21-E14 N10-N19
      9 1808 1025 (S14W53 L=254)  3883    702       14 (1726/ 832-1885/1181)  62.2 W44-W62 S25-S05
     10  202 1077 (N20E56 L=145)   560    143        2 ( 169/1041- 237/1111) -14.6 E59-E52 N17-N22
     11 1515  954 (S12W28 L=229)   255     95        0 (1467/ 931-1547/ 972)  -9.5 W24-W30 S13-S10
     12 1261  938 (S08W12 L=213)   203     24        0 (1234/ 923-1287/ 956)   0.0 W10-W13 S08-S06
     13  286  893 (N08E51 L=150)   431    206        1 ( 223/ 880- 359/ 906)  -9.5 E57-E45 N05-N09
     14  292  603 (S09E61 L=140)   966    175        4 ( 271/ 534- 315/ 677)  56.3 E65-E57 S13-S04
     15  245  618 (S08E66 L=135)   541    112        2 ( 231/ 574- 260/ 667)  63.4 E68-E63 S10-S04
     16 1190  500 (S33E01 L=200)   888    223        0 (1083/ 440-1254/ 586)  23.2 E09-W05 S35-S28
     17  630  509 (S21E37 L=165)   551    187        2 ( 585/ 452- 656/ 580)  35.0 E42-E32 S23-S16
     18  738  401 (S30E34 L=167)  1143    247        3 ( 681/ 326- 798/ 494)  33.7 E41-E26 S34-S24
     19  289  456 (S18E70 L=131)   825     75        0 ( 260/ 421- 313/ 487) -59.0 E72-E68 S20-S15
     20  527  433 (S24E47 L=154)   345    114        1 ( 482/ 424- 573/ 446) -15.9 E50-E43 S24-S22
  

    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