Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1344 1600 (N33W23 L= 54)   279     68        0 (1305/1582-1383/1613) -11.3 W20-W25 N31-N34
      2  517 1274 (N12E32 L=359)   738    165        2 ( 495/1213- 555/1367) -71.6 E34-E29 N08-N17
      3  343 1246 (N11E46 L=346)   518    121        2 ( 314/1192- 387/1291)  56.3 E47-E42 N07-N13
      4  733 1082 (N00E17 L= 14)   827    256        1 ( 616/1030- 841/1118)   8.1 E24-E10 S02-N02
      5 1061  890 (S11W02 L= 33)  1233    470        1 ( 997/ 677-1102/1093)  87.6 E01-W04 S24-N00
      6 1763  934 (S08W50 L= 81)   920    196        0 (1711/ 862-1826/1006)  53.1 W45-W55 S11-S03
      7  671  899 (S11E22 L=  9)   746    275        4 ( 590/ 854- 790/ 943)  13.0 E27-E14 S13-S07
      8 1801  893 (S10W54 L= 85)   693     93        2 (1775/ 851-1829/ 941)  71.6 W51-W56 S12-S06
      9 1591  770 (S18W38 L= 69)   656    220        0 (1544/ 677-1619/ 864)  84.8 W35-W39 S23-S12
     10 1208  833 (S15W11 L= 42)   181     43        0 (1186/ 813-1232/ 853)  18.4 W09-W12 S15-S13
     11 1756  781 (S17W52 L= 83)  1124    266        1 (1694/ 714-1820/ 842)  24.4 W47-W59 S20-S13
     12  459  761 (S18E38 L=353)   254     65        0 ( 434/ 737- 485/ 784)  26.6 E40-E35 S19-S16
     13  612  739 (S20E27 L=  4)   297     94        1 ( 578/ 705- 659/ 778) -51.3 E28-E23 S22-S17
     14  418  650 (S25E44 L=347)   970    189        1 ( 335/ 598- 488/ 709)  20.6 E52-E36 S28-S21
     15  941  591 (S30E06 L= 25)   521    139        0 ( 871/ 553-1001/ 634)  24.0 E10-E01 S32-S27
     16  810  478 (S38E16 L= 15)   218     66        0 ( 770/ 466- 844/ 493)   0.0 E19-E13 S38-S36
     17  513  416 (S41E44 L=347)  3301    395        9 ( 328/ 367- 692/ 475)   6.2 E80-E25 S43-S37
     18 1673  425 (S40W61 L= 92)   625     49        2 (1648/ 404-1703/ 448)  -5.7 W55-W65 S41-S38
     19 1593  377 (S44W54 L= 85)  1001    120        1 (1548/ 330-1631/ 431) -76.0 W51-W59 S47-S39
     20 1497  337 (S48W46 L= 77)   887     56        1 (1472/ 300-1526/ 374) -36.9 W40-W50 S50-S44
  

    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